From a46e711c848adf52fb07b62d2fa110d769dfed80 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Fri, 27 Mar 2009 21:21:46 +0000
Subject: Use docNameOcc instead of nameOccName . getName

---
 src/Haddock/Backends/Html.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Haddock')

diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index ee6e49e9..34b367de 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -787,7 +787,7 @@ ppFunSig summary links loc mbDoc docname typ =
   ppTypeOrFunSig summary links loc docname typ mbDoc 
     (ppTypeSig summary occname typ, ppBinder False occname, dcolon)
   where
-    occname = nameOccName . getName $ docname
+    occname = docNameOcc docname
 
 ppTypeOrFunSig :: Bool -> LinksInfo -> SrcSpan -> DocName -> HsType DocName ->
                   Maybe (HsDoc DocName) -> (Html, Html, Html) -> HtmlTable
-- 
cgit v1.2.3