| {-# LANGUAGE DeriveFunctor, DeriveFoldable, DeriveTraversable #-} | |
| data OpType = Add | Mul deriving (Show, Eq, Ord) | |
| data ExprR r | |
| = Cst Int | |
| | Var Id | |
| | Op OpType [r] | |
| deriving (Show, Eq, Ord, Functor, Foldable, Traversable) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment