| 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.