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

diff --git a/compiler/basicTypes/Id.lhs b/compiler/basicTypes/Id.lhs
index a6459bf..e0ccb3e 100644
--- a/compiler/basicTypes/Id.lhs
+++ b/compiler/basicTypes/Id.lhs
@@ -122,6 +122,7 @@ import StaticFlags
 -- infixl so you can say (id `set` a `set` b)
 infixl 	1 `setIdUnfolding`,
 	  `setIdArity`,
+	  `setIdOccInfo`,
 	  `setIdDemandInfo`,
 	  `setIdStrictness`,
 	  `setIdSpecialisation`,