From 3792158f04a7cf14c700ecab448f043b8ddec6b7 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Mon, 15 Nov 2010 21:44:19 +0000
Subject: Remove docNameOcc under the motto "don't name compositions"

---
 src/Haddock/Backends/Xhtml.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Haddock/Backends/Xhtml.hs')

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
-- 
cgit v1.2.3