diff options
| -rw-r--r-- | libraries/ghc-heap/GHC/Exts/Heap/Closures.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/libraries/ghc-heap/GHC/Exts/Heap/Closures.hs b/libraries/ghc-heap/GHC/Exts/Heap/Closures.hs index 82d0790f43..b247266a10 100644 --- a/libraries/ghc-heap/GHC/Exts/Heap/Closures.hs +++ b/libraries/ghc-heap/GHC/Exts/Heap/Closures.hs @@ -70,9 +70,7 @@ instance Show Box where ptr = W# (aToWord# a) tag = ptr .&. fromIntegral tAG_MASK -- ((1 `shiftL` TAG_BITS) -1) addr = ptr - tag - -- want 0s prefixed to pad it out to a fixed length. - pad_out ls = - '0':'x':(replicate (2*wORD_SIZE - length ls) '0') ++ ls + pad_out ls = '0':'x':ls -- |This takes an arbitrary value and puts it into a box. -- Note that calls like |