X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmm.hs;h=5ad8ee7dcfc92bb14e1fc49e19acaded792cb9bc;hb=b4fd46494dc922a8e1134c9396cada1f10e74e55;hp=00d93b01f1e3e81429e458b345ed24e3fcd790d4;hpb=98037604b0b148ce26ddc07a6fc6f15b4b386224;p=ghc-hetmet.git

diff --git a/compiler/cmm/Cmm.hs b/compiler/cmm/Cmm.hs
index 00d93b0..5ad8ee7 100644
--- a/compiler/cmm/Cmm.hs
+++ b/compiler/cmm/Cmm.hs
@@ -275,6 +275,8 @@ newtype BlockId = BlockId Unique
 instance Uniquable BlockId where
   getUnique (BlockId u) = u
 
+type BlockEnv a = UniqFM {- BlockId -} a
+
 -----------------------------------------------------------------------------
 --		Static Data
 -----------------------------------------------------------------------------