From a58bb2bab0c6fcf2d8771e99cd715b8e686ce38d Mon Sep 17 00:00:00 2001 From: sudoer777 Date: Thu, 7 Sep 2023 23:04:01 -0500 Subject: [PATCH] Make minor improvements to parser --- app/Main.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index e6f83b1..b54a46c 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -2,6 +2,7 @@ module Main (main) where import Control.Monad.Combinators.Expr import Data.Void (Void) +import System.Environment import Text.Megaparsec import Text.Megaparsec.Char as C import Text.Megaparsec.Char.Lexer as L @@ -46,6 +47,7 @@ expr = makeExprParser term table parseExpr :: String -> Either (ParseErrorBundle String Void) Expr parseExpr = parse (C.space *> expr <* eof) "" -main :: IO () +-- main :: IO () main = do - print $ parseExpr "2+3* 4" \ No newline at end of file + input <- fmap head getArgs + parseTest expr input \ No newline at end of file