{-# 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