From 900d19f4c11be74971ae8c762ec9763557c4ba6c Mon Sep 17 00:00:00 2001
From: Jake Wheat <jakewheatmail@gmail.com>
Date: Sat, 1 Aug 2015 12:23:10 +0300
Subject: [PATCH] use ppShow in tool

---
 tools/SimpleSqlParserTool.lhs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tools/SimpleSqlParserTool.lhs b/tools/SimpleSqlParserTool.lhs
index 1ef6c36..4191254 100644
--- a/tools/SimpleSqlParserTool.lhs
+++ b/tools/SimpleSqlParserTool.lhs
@@ -13,6 +13,7 @@ indent: parse then pretty print sql
 > import Data.Maybe
 > import System.Exit
 > import Data.List
+> import Text.Show.Pretty
 
 > import Language.SQL.SimpleSQL.Pretty
 > import Language.SQL.SimpleSQL.Parser
@@ -65,7 +66,7 @@ indent: parse then pretty print sql
 >   ,\args -> do
 >       (f,src) <- getInput args
 >       either (error . peFormattedError)
->           (putStrLn . prettyQueryExprs SQL2011)
+>           (putStrLn . ppShow)
 >           $ parseQueryExprs SQL2011 f Nothing src
 >   )