projects
/
harpy.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Initial commit: 0.4.3.0 from hackage
[harpy.git]
/
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