Skip to content

Instantly share code, notes, and snippets.

@deque-blog
Created January 21, 2017 15:40
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Embed
What would you like to do?
{-# 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