2020-11-03 13:29:59 -08:00
|
|
|
module LambdaCalculus
|
2021-03-16 17:19:50 -07:00
|
|
|
( module LambdaCalculus.Evaluator
|
|
|
|
, module LambdaCalculus.Expression
|
|
|
|
, module LambdaCalculus.Syntax
|
|
|
|
, parseEval, unparseEval
|
2021-03-05 19:04:06 -08:00
|
|
|
) where
|
2020-11-03 13:29:59 -08:00
|
|
|
|
2021-03-16 17:19:50 -07:00
|
|
|
import LambdaCalculus.Evaluator
|
|
|
|
import LambdaCalculus.Expression
|
|
|
|
import LambdaCalculus.Syntax
|
2020-11-03 13:29:59 -08:00
|
|
|
|
2021-03-16 17:19:50 -07:00
|
|
|
parseEval :: Text -> Either ParseError EvalExpr
|
|
|
|
parseEval = fmap ast2eval . parseAST
|
2020-11-03 13:29:59 -08:00
|
|
|
|
2021-03-16 17:19:50 -07:00
|
|
|
unparseEval :: EvalExpr -> Text
|
|
|
|
unparseEval = unparseAST . simplify . eval2ast
|