diff options
| author | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-23 00:08:58 +0000 |
|---|---|---|
| committer | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-23 00:08:58 +0000 |
| commit | 949baf1be3334c7ae53b5395a1b568dcf3ddc117 (patch) | |
| tree | 8bbfd6715b79c81e79660adb4f418a9d74c84529 /src | |
| parent | 7e6271f8ef282a80e56c5ae6e58a33d5d255a6f5 (diff) | |
hacks to make it compile without fnArgDocsn
Diffstat (limited to 'src')
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 11 |
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) |