From b8d878bea82f30d0ddf1f8aeca2839703da659e9 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 9 May 2002 10:35:00 +0000
Subject: [haddock @ 2002-05-09 10:35:00 by simonmar] Give a more useful
 instance of Show for Module.

---
 src/HsSyn.lhs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/HsSyn.lhs b/src/HsSyn.lhs
index ab274ee0..069143f9 100644
--- a/src/HsSyn.lhs
+++ b/src/HsSyn.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: HsSyn.lhs,v 1.7 2002/05/08 14:48:41 simonmar Exp $
+% $Id: HsSyn.lhs,v 1.8 2002/05/09 10:35:00 simonmar Exp $
 %
 % (c) The GHC Team, 1997-2002
 %
@@ -35,7 +35,10 @@ data SrcLoc = SrcLoc Int Int -- (Line, Indentation)
   deriving (Eq,Ord,Show)
 
 newtype Module = Module String
-  deriving (Eq,Ord,Show)
+  deriving (Eq,Ord)
+
+instance Show Module where
+   showsPrec p (Module m) = showString m
 
 data HsQName
 	= Qual Module HsName
-- 
cgit v1.2.3