19 lines
423 B
Haskell
19 lines
423 B
Haskell
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
|