From 2833ace46eb35266ebfe1a5bb8629210413b1be1 Mon Sep 17 00:00:00 2001
From: Wolfgang Jeltsch <g9ks157k@acme.softbase.org>
Date: Mon, 3 Dec 2007 23:47:55 +0000
Subject: addition of type equality support (at least for HTML generation)

---
 src/Haddock/Backends/Html.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Haddock/Backends/Html.hs')

diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index 4a8c41d8..0aa6d85e 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -776,6 +776,7 @@ ppLPred = ppPred . unLoc
 
 ppPred (HsClassP n ts) = ppDocName n <+> hsep (map ppLType ts)
 -- TODO: find out what happened to the Dupable/Linear distinction
+ppPred (HsEqualP t1 t2) = ppLType t1 <+> toHtml "~" <+> ppLType t2
 ppPred (HsIParam (IPName n) t) 
   = toHtml "?" +++ ppDocName n <+> dcolon <+> ppLType t
 
-- 
cgit v1.2.3