diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-08-23 16:06:23 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-08-25 11:12:32 +0100 |
| commit | 1e303c702e205cfb0da1353fa232e527f546522d (patch) | |
| tree | db6ce7a16c50ec44df06f265558fa86fcca4878b /compiler/cmm/BlockId.hs | |
| parent | 017aff7547d15efee2f57a13343ca607e9dec2b3 (diff) | |
| download | haskell-1e303c702e205cfb0da1353fa232e527f546522d.tar.gz | |
use qualified names for clarity
Diffstat (limited to 'compiler/cmm/BlockId.hs')
| -rw-r--r-- | compiler/cmm/BlockId.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/cmm/BlockId.hs b/compiler/cmm/BlockId.hs index c28201c92b..feeacb553d 100644 --- a/compiler/cmm/BlockId.hs +++ b/compiler/cmm/BlockId.hs @@ -14,7 +14,7 @@ import Name import Outputable import Unique -import Compiler.Hoopl hiding (Unique) +import Compiler.Hoopl as Hoopl hiding (Unique) import Compiler.Hoopl.GHC (uniqueToInt, uniqueToLbl, lblToUnique) ---------------------------------------------------------------- @@ -29,7 +29,7 @@ most assembly languages allow, a label is visible throughout the entire compilation unit in which it appears. -} -type BlockId = Label +type BlockId = Hoopl.Label instance Uniquable BlockId where getUnique label = getUnique (uniqueToInt $ lblToUnique label) @@ -50,7 +50,7 @@ infoTblLbl :: BlockId -> CLabel infoTblLbl label = mkInfoTableLabel (mkFCallName (getUnique label) "block") NoCafRefs -- Block environments: Id blocks -type BlockEnv a = LabelMap a +type BlockEnv a = Hoopl.LabelMap a instance Outputable a => Outputable (BlockEnv a) where ppr = ppr . mapToList @@ -59,7 +59,7 @@ emptyBlockMap :: BlockEnv a emptyBlockMap = mapEmpty -- Block sets -type BlockSet = LabelSet +type BlockSet = Hoopl.LabelSet instance Outputable BlockSet where ppr = ppr . setElems |