[project @ 1997-12-17 17:29:49 by simonm]

add instance of Show for Addr.

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