diff options
| author | David Waern <david.waern@gmail.com> | 2010-11-15 21:44:19 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-11-15 21:44:19 +0000 |
| commit | 3792158f04a7cf14c700ecab448f043b8ddec6b7 (patch) | |
| tree | 6e3ef4543cca1903f5e54d1bf14369e4c72c78e6 /src/Haddock/Backends/Xhtml.hs | |
| parent | efb2c8cc248ac2e06829939d8f3b1f921128bbb7 (diff) | |
Remove docNameOcc under the motto "don't name compositions"
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index e126eb9b..bb9c29d1 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -565,7 +565,7 @@ processForMiniSynopsis mdl unicode _ (ExportDecl (L _loc decl0) _doc _ _insts) = (ClassDecl {}) -> Just $ keyword "class" <+> b _ -> Nothing SigD (TypeSig (L _ n) (L _ _)) -> - Just $ ppNameMini mdl (docNameOcc n) + Just $ ppNameMini mdl (nameOccName . getName $ n) _ -> Nothing processForMiniSynopsis _ _ qual (ExportGroup lvl _id txt) = Just $ groupTag lvl << docToHtml qual txt @@ -583,7 +583,7 @@ ppTyClBinderWithVarsMini :: Module -> TyClDecl DocName -> Html ppTyClBinderWithVarsMini mdl decl = let n = unLoc $ tcdLName decl ns = tyvarNames $ tcdTyVars decl - in ppTypeApp n ns (ppNameMini mdl . docNameOcc) ppTyName + in ppTypeApp n ns (ppNameMini mdl . nameOccName . getName) ppTyName ppModuleContents :: Qualification -> [ExportItem DocName] -> Html |