[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)
 >       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
 
 Mark all the recursive functions as deforestable.  Might as well,
 since they will be in treeless form anyway.  This helps to cope with