aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends
diff options
context:
space:
mode:
authorIsaac Dupree <id@isaac.cedarswampstudios.org>2009-08-23 00:08:58 +0000
committerIsaac Dupree <id@isaac.cedarswampstudios.org>2009-08-23 00:08:58 +0000
commit949baf1be3334c7ae53b5395a1b568dcf3ddc117 (patch)
tree8bbfd6715b79c81e79660adb4f418a9d74c84529 /src/Haddock/Backends
parent7e6271f8ef282a80e56c5ae6e58a33d5d255a6f5 (diff)
hacks to make it compile without fnArgDocsn
Diffstat (limited to 'src/Haddock/Backends')
-rw-r--r--src/Haddock/Backends/Html.hs11
1 files changed, 6 insertions, 5 deletions
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)