diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-02-25 06:35:10 +0000 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-02-25 06:35:49 +0000 |
| commit | ede5b5180c2a5db3f51b01dbef402d21ace9601c (patch) | |
| tree | 80954039a27b55f8dee50bc6c7f916ec7c0b7250 /compiler/hsSyn/HsDoc.hs | |
| parent | 4f69b1e23cc9538241e895be4dbee0a0a0fd8396 (diff) | |
| download | haskell-ede5b5180c2a5db3f51b01dbef402d21ace9601c.tar.gz | |
Make Outputable instance for HsDocString useful
Seeing "<document comment>" when trying to debug things in Haddock is
utterly useless and because this instance exists, we can't even make our
own. No instance at all would be better than what it was!
Admittedly, this doesn't produce the nicest output. Perhaps wrapping the
comments in {- -} would be in order but I think it's fine until someone
complains.
Diffstat (limited to 'compiler/hsSyn/HsDoc.hs')
| -rw-r--r-- | compiler/hsSyn/HsDoc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsDoc.hs b/compiler/hsSyn/HsDoc.hs index 1f3adafec1..2cb28540f9 100644 --- a/compiler/hsSyn/HsDoc.hs +++ b/compiler/hsSyn/HsDoc.hs @@ -20,7 +20,7 @@ newtype HsDocString = HsDocString FastString type LHsDocString = Located HsDocString instance Outputable HsDocString where - ppr _ = text "<document comment>" + ppr (HsDocString fs) = ftext fs ppr_mbDoc :: Maybe LHsDocString -> SDoc ppr_mbDoc (Just doc) = ppr doc |