From: Matthijs Kooijman <matthijs@stdin.nl>
Date: Wed, 31 Mar 2010 11:56:34 +0000 (+0200)
Subject: Derive Show for CoreContext.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=8fcabd5ec3e690fe6c244e0ff0e6a80720a5ed11;hp=2cc551233a06fbb34887db4f89ae7d153b81aedd;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Derive Show for CoreContext.
---

diff --git "a/c\316\273ash/CLasH/Normalize/NormalizeTypes.hs" "b/c\316\273ash/CLasH/Normalize/NormalizeTypes.hs"
index 966e18e..4e98709 100644
--- "a/c\316\273ash/CLasH/Normalize/NormalizeTypes.hs"
+++ "b/c\316\273ash/CLasH/Normalize/NormalizeTypes.hs"
@@ -29,6 +29,6 @@ data CoreContext = AppFirst        -- ^ The expression is the first
                  | LambdaBody      -- ^ The expression is the body of a
                                    --   lambda abstraction
                  | Other           -- ^ Another context
-  deriving Eq
+  deriving (Eq, Show)
 -- | Transforms a CoreExpr and keeps track if it has changed.
 type Transform = [CoreContext] -> CoreSyn.CoreExpr -> TransformMonad CoreSyn.CoreExpr