diff options
Diffstat (limited to 'ghc/lib/glaExts')
| -rw-r--r-- | ghc/lib/glaExts/Addr.lhs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ghc/lib/glaExts/Addr.lhs b/ghc/lib/glaExts/Addr.lhs index 91056eea7e..c592d50a9f 100644 --- a/ghc/lib/glaExts/Addr.lhs +++ b/ghc/lib/glaExts/Addr.lhs @@ -22,6 +22,9 @@ import CCall \begin{code} data Addr = A# Addr# deriving (Eq, Ord) +instance Show Addr where + showsPrec p (A# a) = showsPrec p (I# (addr2Int# a)) + nullAddr = ``NULL'' :: Addr plusAddr :: Addr -> Int -> Addr |