1
Fork 0

tidying pass: update changelog, get example compiling, pass on haddock, rename MyStream to SQLStream, tweak cabal file

This commit is contained in:
Jake Wheat 2024-01-10 12:29:21 +00:00
parent de121d1fd6
commit 2fd285e670
5 changed files with 58 additions and 35 deletions

View file

@ -1,6 +1,7 @@
-- Simple example to show parsing some SQL then pretty printing the AST
{-# LANGUAGE OverloadedStrings #-}
import System.Environment
import Text.Show.Pretty
import System.IO
@ -8,9 +9,11 @@ import System.IO
import Language.SQL.SimpleSQL.Parse
(parseStatements
,ParseError
,peFormattedError)
,prettyError
,ansi2011)
import Language.SQL.SimpleSQL.Syntax (ansi2011, Statement)
import Language.SQL.SimpleSQL.Syntax (Statement)
import qualified Data.Text as T
main :: IO ()
@ -41,7 +44,7 @@ main = do
doIt :: String -> IO ()
doIt src = do
let parsed :: Either ParseError [Statement]
parsed = parseStatements ansi2011 "" Nothing src
either (error . peFormattedError)
parsed = parseStatements ansi2011 "" Nothing (T.pack src)
either (error . T.unpack . prettyError)
(putStrLn . ppShow)
parsed