From 8fcabd5ec3e690fe6c244e0ff0e6a80720a5ed11 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Wed, 31 Mar 2010 13:56:34 +0200 Subject: [PATCH] Derive Show for CoreContext. --- "c\316\273ash/CLasH/Normalize/NormalizeTypes.hs" | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.30.2