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

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

diff --git a/ghc/compiler/deforest/TreelessForm.lhs b/ghc/compiler/deforest/TreelessForm.lhs
index 2526a57..279130a 100644 (file)
--- a/ghc/compiler/deforest/TreelessForm.lhs
+++ b/ghc/compiler/deforest/TreelessForm.lhs
@@ -119,6 +119,8 @@ ToDo: make this better.
 >       SCC l e ->
 >              convExpr e                      `thenUs` \e ->
 >              returnUs (SCC l e)
+>
+>      Coerce _ _ _ -> panic "TreelessForm:convExpr:Coerce"
 
 Mark all the recursive functions as deforestable.  Might as well,
 since they will be in treeless form anyway.  This helps to cope with