X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FId.lhs;h=fbf6b4a25644ba63f9fc95c7a86680152d4631c1;hb=215ce9f15215399ce30ae55c9521087847d78646;hp=ceba59920a67d97115cb4dbffcda506946e2dff3;hpb=2662dbc5b2c30fc11ccb99e7f9b2dba794d680ba;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/Id.lhs b/compiler/basicTypes/Id.lhs
index ceba599..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,10 +121,12 @@ import StaticFlags
 -- infixl so you can say (id `set` a `set` b)
 infixl 	1 `setIdUnfolding`,
 	  `setIdArity`,
+	  `setIdOccInfo`,
 	  `setIdDemandInfo`,
 	  `setIdStrictness`,
 	  `setIdSpecialisation`,
 	  `setInlinePragma`,
+	  `setInlineActivation`,
 	  `idCafInfo`
 \end{code}