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

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

diff --git a/ghc/compiler/deforest/Def2Core.lhs b/ghc/compiler/deforest/Def2Core.lhs
index 6660f31..d8267e4 100644 (file)
--- a/ghc/compiler/deforest/Def2Core.lhs
+++ b/ghc/compiler/deforest/Def2Core.lhs
@@ -113,6 +113,8 @@
 >       SCC l e ->
 >              d2c e                   `thenUs` \e' ->
 >              returnUs (SCC l e')
+>      Coerce _ _ _ ->
+>              panic "Def2Core:Coerce"
 
 > defCaseAlts2Core :: DefCaseAlternatives
 >      -> UniqSM CoreCaseAlts