diff options
| author | simonmar <unknown> | 2002-07-09 10:12:10 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-07-09 10:12:10 +0000 |
| commit | 03e0710d252ff4bdb7060b37e891ad849eb2bc90 (patch) | |
| tree | 175012eb61681d16a247e582b67305c59dc34d32 /src/HaddockHtml.hs | |
| parent | 2c26e77d578eab50d903055a42c7da90cddb7fa3 (diff) | |
[haddock @ 2002-07-09 10:12:10 by simonmar]
Don't require that the list type comes from "Prelude" for it to be
treated as special syntax (sometimes it comes from Data.List or maybe
even GHC.Base).
Diffstat (limited to 'src/HaddockHtml.hs')
| -rw-r--r-- | src/HaddockHtml.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 75feb045..209d9689 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -761,7 +761,7 @@ ppHsType (HsTyFun a b) = hsep [ppHsBType a, toHtml "->", ppHsType b] ppHsType t = ppHsBType t ppHsBType (HsTyDoc ty doc) = ppHsBType ty -ppHsBType (HsTyApp (HsTyCon (Qual (Module "Prelude") (HsTyClsName (HsSpecial "[]")))) b ) +ppHsBType (HsTyApp (HsTyCon (Qual _ (HsTyClsName (HsSpecial "[]")))) b ) = brackets $ ppHsType b ppHsBType (HsTyApp a b) = ppHsBType a <+> ppHsAType b ppHsBType t = ppHsAType t @@ -771,7 +771,7 @@ ppHsAType (HsTyTuple True l) = parenList . map ppHsType $ l ppHsAType (HsTyTuple False l) = ubxParenList . map ppHsType $ l ppHsAType (HsTyVar name) = ppHsName name ppHsAType (HsTyCon name) = ppHsQName name -ppHsAType (HsTyApp (HsTyCon (Qual (Module "Prelude") (HsTyClsName (HsSpecial "[]")))) b ) +ppHsAType (HsTyApp (HsTyCon (Qual _ (HsTyClsName (HsSpecial "[]")))) b ) = brackets $ ppHsType b ppHsAType t = parens $ ppHsType t |