diff options
| author | simonm <unknown> | 1997-12-17 17:29:49 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1997-12-17 17:29:49 +0000 |
| commit | b51d0528b6bcbfc770765c33eed3714fd91f23e8 (patch) | |
| tree | 9872266618d66db68c1819ac8ff90f6fac2a2c17 /ghc | |
| parent | 85bc313bb8dad50e96723a776634fc6fdf2f0b8c (diff) | |
| download | haskell-b51d0528b6bcbfc770765c33eed3714fd91f23e8.tar.gz | |
[project @ 1997-12-17 17:29:49 by simonm]
add instance of Show for Addr.
Diffstat (limited to 'ghc')
| -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 |