X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FId.lhs;h=fbf6b4a25644ba63f9fc95c7a86680152d4631c1;hb=90686adf9d3dc7a09a51853df051bc4ea472d840;hp=a6459bf423d78119b1f034971167988a6fb21439;hpb=085d9de94b86e1559de064528d6480ee27de9091;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/Id.lhs b/compiler/basicTypes/Id.lhs
index a6459bf..fbf6b4a 100644
--- a/compiler/basicTypes/Id.lhs
+++ b/compiler/basicTypes/Id.lhs
@@ -101,7 +101,6 @@ import qualified Var
 
 import TyCon
 import Type
-import TcType
 import TysPrim
 import DataCon
 import Demand
@@ -122,6 +121,7 @@ import StaticFlags
 -- infixl so you can say (id `set` a `set` b)
 infixl 	1 `setIdUnfolding`,
 	  `setIdArity`,
+	  `setIdOccInfo`,
 	  `setIdDemandInfo`,
 	  `setIdStrictness`,
 	  `setIdSpecialisation`,