Permalink
Browse files

Add Show for expressions

  • Loading branch information...
1 parent abcf35d commit 344732072714861738954e9749634ce9c8458a65 Edwin Brady committed Nov 10, 2011
Showing with 3 additions and 0 deletions.
  1. +3 −0 Epic/Epic.lhs
View
@@ -60,6 +60,9 @@ Allow Haskell functions to be used to build expressions.
> -- | A sub-term, with a name supply
> type Term = State Int Expr
+> instance Show Term where
+> show t = show (evalState t 0)
+
> -- | Build expressions, with a name supply
> class EpicExpr e where
> term :: e -> State Int Expr

0 comments on commit 3447320

Please sign in to comment.