perga/app/Main.hs

module Main where

import Parser
import System.IO

main :: IO ()
main = do
  _ <- putStr "> "
  _ <- hFlush stdout
  input <- getLine
  case pAll input of
    Left err -> putStrLn err
    Right expr -> print expr