summaryrefslogtreecommitdiff
path: root/libraries/ghc-heap
diff options
context:
space:
mode:
Diffstat (limited to 'libraries/ghc-heap')
-rw-r--r--libraries/ghc-heap/GHC/Exts/Heap/Closures.hs4
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