From b51d0528b6bcbfc770765c33eed3714fd91f23e8 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Wed, 17 Dec 1997 17:29:49 +0000
Subject: [PATCH] [project @ 1997-12-17 17:29:49 by simonm] add instance of
 Show for Addr.

---
 ghc/lib/glaExts/Addr.lhs | 3 +++
 1 file changed, 3 insertions(+)

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