me
/
really-bad-compiler-in-haskell
Archived
1
0
Fork 0
Code Issues 20 Pull Requests Projects 3 Releases 3 Activity

Make minor improvements to parser

main
Ethan Reece 2023-09-07 23:04:01 -05:00
parent ff7fe0a1d3
commit a58bb2bab0
Signed by: me
GPG Key ID: D3993665FF92E1C3
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/Main.hs
View File

@ -2,6 +2,7 @@ module Main (main) where
import Control.Monad.Combinators.Expr import Control.Monad.Combinators.Expr
import Data.Void (Void) import Data.Void (Void)
import System.Environment
import Text.Megaparsec import Text.Megaparsec
import Text.Megaparsec.Char as C import Text.Megaparsec.Char as C
import Text.Megaparsec.Char.Lexer as L import Text.Megaparsec.Char.Lexer as L
@ -46,6 +47,7 @@ expr = makeExprParser term table
parseExpr :: String -> Either (ParseErrorBundle String Void) Expr parseExpr :: String -> Either (ParseErrorBundle String Void) Expr
parseExpr = parse (C.space *> expr <* eof) "" parseExpr = parse (C.space *> expr <* eof) ""
main :: IO () -- main :: IO ()
main = do main = do
print $ parseExpr "2+3* 4" input <- fmap head getArgs
parseTest expr input