diff options
Diffstat (limited to 'libraries/base/GHC/Ptr.hs')
| -rw-r--r-- | libraries/base/GHC/Ptr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/Ptr.hs b/libraries/base/GHC/Ptr.hs index e4021ee115..6cbcc07ddc 100644 --- a/libraries/base/GHC/Ptr.hs +++ b/libraries/base/GHC/Ptr.hs @@ -179,7 +179,7 @@ exchangePtr (Ptr dst) (Ptr val) = -- | @since 2.01 instance Show (Ptr a) where - showsPrec _ (Ptr a) rs = pad_out (showHex (wordToInteger(int2Word#(addr2Int# a))) "") + showsPrec _ (Ptr a) rs = pad_out (showHex (integerFromWord#(int2Word#(addr2Int# a))) "") where -- want 0s prefixed to pad it out to a fixed length. pad_out ls = |