Add a CaseAlt constructor to CoreContext.

[matthijs/master-project/cλash.git] / clash / CLasH / Normalize / NormalizeTypes.hs

diff --git a/clash/CLasH/Normalize/NormalizeTypes.hs b/clash/CLasH/Normalize/NormalizeTypes.hs
index 506633de65e569548787d8c8deca83d3cc814755..f4e5e9b523eb9f3c0ace82aa90c06f6d23205ebf 100644 (file)
--- a/clash/CLasH/Normalize/NormalizeTypes.hs
+++ b/clash/CLasH/Normalize/NormalizeTypes.hs
@@ -31,6 +31,9 @@ data CoreContext = AppFirst        -- ^ The expression is the first
                  | LambdaBody CoreSyn.CoreBndr
                                    -- ^ The expression is the body of a
                                    --   lambda abstraction
+                 | CaseAlt CoreSyn.CoreBndr
+                                   -- ^ The expression is the body of a
+                                   --   case alternative.
                  | Other           -- ^ Another context
   deriving (Eq, Show)
 -- | Transforms a CoreExpr and keeps track if it has changed.