X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fstranal%2FDmdAnal.lhs;h=f23802ea403d3ffd217c43bd5e55f6ce1e735aff;hb=53ce311e219dcccf4d205f573c16e23a5c44265e;hp=e5934e59bd61eccfcaccca051fe43acf9b2bb1e3;hpb=615a5546467c7864c765adf40706f23be3fa28b6;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/DmdAnal.lhs b/ghc/compiler/stranal/DmdAnal.lhs
index e5934e5..f23802e 100644
--- a/ghc/compiler/stranal/DmdAnal.lhs
+++ b/ghc/compiler/stranal/DmdAnal.lhs
@@ -31,7 +31,7 @@ import UniqFM		( plusUFM_C, addToUFM_Directly, lookupUFM_Directly,
 			  keysUFM, minusUFM, ufmToList, filterUFM )
 import Type		( isUnLiftedType )
 import CoreLint		( showPass, endPass )
-import Util		( mapAndUnzip, mapAccumL, mapAccumR, lengthIs, equalLength )
+import Util		( mapAndUnzip, mapAccumL, mapAccumR, lengthIs )
 import BasicTypes	( Arity, TopLevelFlag(..), isTopLevel, isNeverActive )
 import Maybes		( orElse, expectJust )
 import Outputable