X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCmm.hs;fp=compiler%2Fcmm%2FCmm.hs;h=b535c8dbd221dbdee492794678c6b63560599dc3;hp=fef00c76e58c98e736cbd1748450d22e4ad57f01;hb=c92fecad2314baf305292174a14ba383465157a4;hpb=bd2264ad7b4346782efbb5bb786686ec265a5e90

diff --git a/compiler/cmm/Cmm.hs b/compiler/cmm/Cmm.hs
index fef00c7..b535c8d 100644
--- a/compiler/cmm/Cmm.hs
+++ b/compiler/cmm/Cmm.hs
@@ -21,8 +21,8 @@ module Cmm (
         CmmSafety(..),
 	CmmCallTarget(..),
 	CmmStatic(..), Section(..),
-        module CmmExpr,
-        BlockId(..), 
+
+        BlockId(..), mkBlockId,
         BlockEnv, emptyBlockEnv, lookupBlockEnv, extendBlockEnv, mkBlockEnv,
         BlockSet, emptyBlockSet, elemBlockSet, extendBlockSet,
   ) where
@@ -40,7 +40,7 @@ import FastString
 
 import Data.Word
 
-import ZipCfg (	BlockId(..)
+import ZipCfg (	BlockId(..), mkBlockId
               , BlockEnv, emptyBlockEnv, lookupBlockEnv, extendBlockEnv, mkBlockEnv
               , BlockSet, emptyBlockSet, elemBlockSet, extendBlockSet
               )