diff options
| author | simonmar <unknown> | 2002-05-09 10:35:00 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-05-09 10:35:00 +0000 |
| commit | b8d878bea82f30d0ddf1f8aeca2839703da659e9 (patch) | |
| tree | 9ffe9e31acd1681e644dc34ba43c09275483c013 | |
| parent | 14abcb39a7cfa824d6c52735a5b6fc222b1b4993 (diff) | |
[haddock @ 2002-05-09 10:35:00 by simonmar]
Give a more useful instance of Show for Module.
| -rw-r--r-- | src/HsSyn.lhs | 7 |
1 files changed, 5 insertions, 2 deletions
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 |