[add some strictness annotations
John Meacham <john@repetae.net>**20100728073620
 Ignore-this: 527a481ffff33135d689421bd3c44aad
] hunk ./src/FrontEnd/Tc/Kind.hs 124
-    kvarUniq :: !Int,
-    kvarRef :: IORef (Maybe Kind),
-    kvarConstraint :: KindConstraint
+    kvarUniq       :: {-# UNPACK #-} !Int,
+    kvarRef        :: {-# UNPACK #-} !(IORef (Maybe Kind)),
+    kvarConstraint :: {-# UNPACK #-} !KindConstraint
hunk ./src/FrontEnd/Tc/Monad.hs 99
-    tcVarnum            :: IORef Int,
-    tcCollectedEnv      :: IORef (Map.Map Name Sigma),
-    tcCollectedCoerce   :: IORef (Map.Map Name CoerceTerm),
+    tcVarnum            :: {-# UNPACK #-} !(IORef Int),
+    tcCollectedEnv      :: {-# UNPACK #-} !(IORef (Map.Map Name Sigma)),
+    tcCollectedCoerce   :: {-# UNPACK #-} !(IORef (Map.Map Name CoerceTerm)),