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