perga/app/Main.hs

module Main where

import Check
import Expr
import Parser
import qualified Data.Text.IO as T
import System.IO

main :: IO ()
main = do
    _ <- T.putStr "> "
    _ <- hFlush stdout
    input <- T.getLine
    case pAll input of
        Left err -> T.putStrLn err
        Right expr -> case findType [] expr of
            Right ty -> T.putStrLn $ pretty expr <> " : " <> pretty ty
            Left err -> print err
    main