| type Id = String | |
| data OpType = Add | Mul deriving (Show, Eq, Ord) | |
| data Expr | |
| = Cst Int | |
| | Var Id | |
| | Op OpType [Expr] | |
| deriving (Show, Eq, Ord) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment