ast.dcl

   1 definition module ast
   2
   3 from Data.Either import :: Either
   4 from StdOverloaded import class toString
   5
   6 from int import :: Eval
   7
   8 :: Function = Function [Char] [[Char]] Expression
   9
  10 :: Expression
  11         = Lit Value
  12         | Var [Char]
  13         | App Expression Expression
  14         | Lambda [Char] Expression
  15         | Let [([Char], Expression)] Expression
  16
  17 :: Value
  18         = Int Int
  19         | Bool Bool
  20         | Lambda` [Char] Expression
  21         | Builtin (Expression -> Eval Expression)
  22
  23 instance toString Function, Expression, Value