From 206982cd0a38df5b34ae2084b6f0391f9dc6271a Mon Sep 17 00:00:00 2001
From: Jake Wheat <jakewheatmail@gmail.com>
Date: Sat, 31 Aug 2019 13:43:37 +0100
Subject: [PATCH] fix error message in simple sql parser when not parsing from
 file

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

diff --git a/tools/SimpleSqlParserTool.lhs b/tools/SimpleSqlParserTool.lhs
index eae9be3..d4c9523 100644
--- a/tools/SimpleSqlParserTool.lhs
+++ b/tools/SimpleSqlParserTool.lhs
@@ -59,8 +59,8 @@ indent: parse then pretty print sql
 > getInput :: [String] -> IO (FilePath,String)
 > getInput as =
 >     case as of
->       ["-"] -> ("-",) <$> getContents
->       ("-c":as') -> return ("-", unwords as')
+>       ["-"] -> ("",) <$> getContents
+>       ("-c":as') -> return ("", unwords as')
 >       [filename] -> (filename,) <$> readFile filename
 >       _ -> showHelp (Just "arguments not recognised") >> error ""