aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-11-15 21:44:19 +0000
committerDavid Waern <david.waern@gmail.com>2010-11-15 21:44:19 +0000
commit3792158f04a7cf14c700ecab448f043b8ddec6b7 (patch)
tree6e3ef4543cca1903f5e54d1bf14369e4c72c78e6 /src/Haddock/Backends/Xhtml.hs
parentefb2c8cc248ac2e06829939d8f3b1f921128bbb7 (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.hs4
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