X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fdeforest%2FDefExpr.lhs;h=bae88366ec9648e28f4edf3354d06a24fd1ebec1;hb=e7498a3ee1d0484d02a9e86633cc179c76ebf36e;hp=22993716404709b5054b66ccd4d4167bd130bd62;hpb=f01a8e8c9c53bfb5ab3393ed3457ebf25390efa1;p=ghc-hetmet.git

diff --git a/ghc/compiler/deforest/DefExpr.lhs b/ghc/compiler/deforest/DefExpr.lhs
index 2299371..bae8836 100644
--- 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
 >