[project @ 1996-06-05 06:44:31 by partain]

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

diff --git a/ghc/compiler/deforest/DefExpr.lhs b/ghc/compiler/deforest/DefExpr.lhs
index cda10ff..bae8836 100644 (file)
--- a/ghc/compiler/deforest/DefExpr.lhs
+++ b/ghc/compiler/deforest/DefExpr.lhs
@@ -293,7 +293,7 @@ should an unfolding be required.
 >              then  no_unfold
 >
 >              else case (getIdUnfolding id) of
->                      GenForm _ _ expr guidance ->
+>                      GenForm _ expr guidance ->
 >                        panic "DefExpr:GenForm has changed a little; needs mod here"
 >                        -- SLPJ March 95
 >