X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2FglaExts%2FAddr.lhs;fp=ghc%2Flib%2FglaExts%2FAddr.lhs;h=c592d50a9f08700a7bd4b32edf3c604408538ec2;hb=b51d0528b6bcbfc770765c33eed3714fd91f23e8;hp=91056eea7e231312e074b2a4f59f0ed8a703ddb3;hpb=85bc313bb8dad50e96723a776634fc6fdf2f0b8c;p=ghc-hetmet.git

diff --git a/ghc/lib/glaExts/Addr.lhs b/ghc/lib/glaExts/Addr.lhs
index 91056ee..c592d50 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