X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fdeforest%2FDefUtils.lhs;h=9e53ae0ef84b0089b7d3a42ac171b9bf02d818c0;hb=ca5a4a480d10d61e5b7a52eb4d556e8b8c33e69d;hp=2a8edc9b501c741f7e304eb256ccb8b595ebbf2d;hpb=f01a8e8c9c53bfb5ab3393ed3457ebf25390efa1;p=ghc-hetmet.git

diff --git a/ghc/compiler/deforest/DefUtils.lhs b/ghc/compiler/deforest/DefUtils.lhs
index 2a8edc9..9e53ae0 100644
--- a/ghc/compiler/deforest/DefUtils.lhs
+++ b/ghc/compiler/deforest/DefUtils.lhs
@@ -22,7 +22,6 @@
 
 > import Type		( cloneTyVar, mkTyVarTy, applyTypeEnvToTy,
 > 			  tyVarsOfType, TyVar, SigmaType(..)
->			  IF_ATTACK_PRAGMAS(COMMA cmpTyVar)
 >			)
 > import Literal	( Literal )	-- for Eq Literal
 > import CoreSyn