import CLabel
import BlockId
-import Cmm
+import CmmExpr
import CmmUtils
import FastString
-import PprCmm ( {- instance Outputable -} )
import Id
import VarEnv
-import Maybes
-import Monad
+import Control.Monad
import Name
import StgSyn
import Outputable