From 949baf1be3334c7ae53b5395a1b568dcf3ddc117 Mon Sep 17 00:00:00 2001 From: Isaac Dupree Date: Sun, 23 Aug 2009 00:08:58 +0000 Subject: hacks to make it compile without fnArgDocsn --- src/Haddock/Backends/Html.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'src/Haddock/Backends') diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 99103f98..17c1c802 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -872,13 +872,14 @@ ppTypeOrFunSig summary links loc docname typ doc (pref1, pref2, sep) unicode = (argBox (leader <+> ppLContextNoArrow lctxt unicode) <-> rdocBox noHtml) do_largs (darrow unicode) ltype - do_args leader (HsFunTy (L _ (HsDocTy lt ldoc)) r) - = (argBox (leader <+> ppLType unicode lt) <-> rdocBox (docToHtml (unLoc ldoc))) - do_largs (arrow unicode) r +--hacl +-- do_args leader (HsFunTy (L _ (HsDocTy lt ldoc)) r) +-- = (argBox (leader <+> ppLType unicode lt) <-> rdocBox (docToHtml (unLoc ldoc))) +-- do_largs (arrow unicode) r do_args leader (HsFunTy lt r) = (argBox (leader <+> ppLType unicode lt) <-> rdocBox noHtml) do_largs (arrow unicode) r - do_args leader (HsDocTy lt ldoc) - = (argBox (leader <+> ppLType unicode lt) <-> rdocBox (docToHtml (unLoc ldoc))) +-- do_args leader (HsDocTy lt ldoc) +-- = (argBox (leader <+> ppLType unicode lt) <-> rdocBox (docToHtml (unLoc ldoc))) do_args leader t = argBox (leader <+> ppType unicode t) <-> rdocBox (noHtml) -- cgit v1.2.3