[project @ 1996-04-30 17:34:02 by partain]

[ghc-hetmet.git] / ghc / compiler / deforest / Core2Def.lhs

diff --git a/ghc/compiler/deforest/Core2Def.lhs b/ghc/compiler/deforest/Core2Def.lhs
index b6bfea9..2739c6e 100644 (file)
--- a/ghc/compiler/deforest/Core2Def.lhs
+++ b/ghc/compiler/deforest/Core2Def.lhs
@@ -115,6 +115,7 @@ ToDo:
 >               where recBind2def ((v,_),e) = (v, c2d p e)
 >
 >       SCC l e       -> SCC l (c2d p e)
+>      Coerce _ _ _ -> panic "Core2Def:Coerce"
 
 
 > coreCaseAlts2def