[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 2299371..bae8836 100644 (file)
--- a/ghc/compiler/deforest/DefExpr.lhs
+++ b/ghc/compiler/deforest/DefExpr.lhs
@@ -18,7 +18,6 @@
 
 > import Type          ( applyTypeEnvToTy, isPrimType,
 >                        SigmaType(..), Type
->                        IF_ATTACK_PRAGMAS(COMMA cmpUniType)
 >                      )
 > import CmdLineOpts   ( SwitchResult, switchIsOn )
 > import CoreUnfold    ( UnfoldingDetails(..) )
@@ -294,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
 >