Skip to content
Snippets Groups Projects
Select Git revision
  • e66443b567430cdfcac3a7bb8a4f3a8c0a7442d7
  • master default
  • pcl_expect_0_1_0
3 results

user.py

Blame
  • main.hs 361 B
    {-# Language ImportQualifiedPost #-}
    
    import Data.Map.Strict qualified as Map
    import Text.Parsec (parse)
    import Control.Monad.Reader (runReader)
    import Eval (eval)
    import Parse (parseExpression')
    
    main = do
        msg <- getContents
        let (Right ast) = parse parseExpression' "" msg
        print ast
        let result = runReader (eval ast) Map.empty
        print result