X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FOccurAnal.lhs;h=89dca5844aae3ed82247a7ea9571a7fb21e498e1;hb=144e841e833b037704e86b1de247d4f2aefe26e2;hp=021ee87fdb2dc62294163e4068eb3d7eb2220e10;hpb=c7eeb7113387ae4d3adc5a02eba441de335a9031;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs
index 021ee87..89dca58 100644
--- a/ghc/compiler/simplCore/OccurAnal.lhs
+++ b/ghc/compiler/simplCore/OccurAnal.lhs
@@ -26,7 +26,7 @@ import Id		( isDataConId, isOneShotLambda, setOneShotLambda,
 			  idSpecialisation, isLocalId,
 			  idType, idUnique, Id
 			)
-import IdInfo		( shortableIdInfo, copyIdInfo )
+import IdInfo		( copyIdInfo )
 import BasicTypes	( OccInfo(..), isOneOcc )
 
 import VarSet