starlitcanopy/simple-sql-parser
1
Fork 0
Code Activity

fix error message in simple sql parser when not parsing from file

Browse source
This commit is contained in:
Jake Wheat 2019-08-31 13:43:37 +01:00
parent 4c8f612f56
commit 206982cd0a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tools/SimpleSqlParserTool.lhs
View file

@ -59,8 +59,8 @@ indent: parse then pretty print sql
> getInput :: [String] -> IO (FilePath,String) > getInput :: [String] -> IO (FilePath,String)
> getInput as = > getInput as =
> case as of > case as of
> ["-"] -> ("-",) <$> getContents > ["-"] -> ("",) <$> getContents
> ("-c":as') -> return ("-", unwords as') > ("-c":as') -> return ("", unwords as')
> [filename] -> (filename,) <$> readFile filename > [filename] -> (filename,) <$> readFile filename
> _ -> showHelp (Just "arguments not recognised") >> error "" > _ -> showHelp (Just "arguments not recognised") >> error ""