summaryrefslogtreecommitdiff
path: root/compiler/cmm/BlockId.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/cmm/BlockId.hs')
-rw-r--r--compiler/cmm/BlockId.hs6
1 files changed, 0 insertions, 6 deletions
diff --git a/compiler/cmm/BlockId.hs b/compiler/cmm/BlockId.hs
index feeacb553d..d5a8e045bf 100644
--- a/compiler/cmm/BlockId.hs
+++ b/compiler/cmm/BlockId.hs
@@ -31,15 +31,9 @@ compilation unit in which it appears.
type BlockId = Hoopl.Label
-instance Uniquable BlockId where
- getUnique label = getUnique (uniqueToInt $ lblToUnique label)
-
mkBlockId :: Unique -> BlockId
mkBlockId unique = uniqueToLbl $ intToUnique $ getKey unique
-instance Outputable BlockId where
- ppr label = ppr (getUnique label)
-
retPtLbl :: BlockId -> CLabel
retPtLbl label = mkReturnPtLabel $ getUnique label