Skip to content

Instantly share code, notes, and snippets.

@deque-blog

deque-blog/dsl_arithmetic_2_cataExpr.hs

Created January 20, 2017 20:12
Show Gist options
  • Save deque-blog/574b61e4bacd2b6577522878d25aec7a to your computer and use it in GitHub Desktop.
Save deque-blog/574b61e4bacd2b6577522878d25aec7a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
dsl_arithmetic_2_cataExpr.hs
cataExpr :: (ExprR a -> a) -> Expr -> a
cataExpr algebra =
algebra
. fmap (cataExpr algebra)
. unFix
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment