2024-10-05 13:31:09 -07:00
|
|
|
module Main where
|
|
|
|
|
|
2024-10-06 14:02:35 -07:00
|
|
|
import Expr
|
2024-10-05 16:04:13 -07:00
|
|
|
import Parser
|
|
|
|
|
import System.IO
|
|
|
|
|
|
2024-10-05 13:31:09 -07:00
|
|
|
main :: IO ()
|
2024-10-05 16:04:13 -07:00
|
|
|
main = do
|
2024-10-06 14:02:35 -07:00
|
|
|
_ <- putStr "> "
|
|
|
|
|
_ <- hFlush stdout
|
|
|
|
|
input <- getLine
|
|
|
|
|
case pAll input of
|
|
|
|
|
Left err -> putStrLn err
|
|
|
|
|
Right expr -> putStrLn $ pretty expr
|
