14 lines
253 B
Haskell
14 lines
253 B
Haskell
module Main where
|
|
|
|
import Expr
|
|
import Parser
|
|
import System.IO
|
|
|
|
main :: IO ()
|
|
main = do
|
|
_ <- putStr "> "
|
|
_ <- hFlush stdout
|
|
input <- getLine
|
|
case pAll input of
|
|
Left err -> putStrLn err
|
|
Right expr -> putStrLn $ pretty expr
|