Skip to content
Snippets Groups Projects
Commit b8d878be authored by Simon Marlow's avatar Simon Marlow
Browse files

[haddock @ 2002-05-09 10:35:00 by simonmar]

Give a more useful instance of Show for Module.
parent 14abcb39
No related merge requests found
% -----------------------------------------------------------------------------
% $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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment