mkBlockId :: Unique -> BlockId
mkBlockId unique = mkHooplLabel $ getKey unique
mkBlockId :: Unique -> BlockId
mkBlockId unique = mkHooplLabel $ getKey unique
mkBlockId unique = mkHooplLabel $ getKey unique