examples/evaluator/ArithTypes.hs

   1 module ArithTypes where
   2
   3 import Foreign
   4
   5 data Stmt = Assign Char Exp
   6           | Print Exp
   7           | Cmd Cmd
   8           deriving (Show)
   9
  10 data Cmd = Help
  11          | Quit
  12          | Verbose
  13          deriving (Show)
  14
  15 data Exp = Add Exp Exp
  16          | Sub Exp Exp
  17          | Mul Exp Exp
  18          | Div Exp Exp
  19          | Lit Int32
  20          | Var Char
  21          deriving (Show)
  22