From 03e0710d252ff4bdb7060b37e891ad849eb2bc90 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 9 Jul 2002 10:12:10 +0000
Subject: [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).

---
 src/HaddockHtml.hs | 4 ++--
 1 file 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
 
-- 
cgit v1.2.3