From 3eb6d272850950e4d0c41ed1169258e8c332dbed Mon Sep 17 00:00:00 2001
From: Henning Thielemann <git@henning-thielemann.de>
Date: Mon, 2 Apr 2012 00:29:05 +0200
Subject: qualification style 'abbreviated' -> 'aliased'

---
 src/Haddock/Backends/Xhtml.hs       | 4 ++--
 src/Haddock/Backends/Xhtml/Names.hs | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/Haddock/Backends')

diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index fc94e7d6..94ca6d10 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -468,9 +468,9 @@ ppHtmlModule odir doctitle themes
   maybe_contents_url maybe_index_url unicode qual debug iface = do
   let
       mdl = ifaceMod iface
-      abbrevs = ifaceModuleAbbrevs iface
+      aliases = ifaceModuleAliases iface
       mdl_str = moduleString mdl
-      real_qual = makeModuleQual qual abbrevs mdl
+      real_qual = makeModuleQual qual aliases mdl
       html =
         headHtml mdl_str (Just $ "mini_" ++ moduleHtmlFile mdl) themes +++
         bodyHtml doctitle (Just iface)
diff --git a/src/Haddock/Backends/Xhtml/Names.hs b/src/Haddock/Backends/Xhtml/Names.hs
index 863e5f90..48d0f7f1 100644
--- a/src/Haddock/Backends/Xhtml/Names.hs
+++ b/src/Haddock/Backends/Xhtml/Names.hs
@@ -79,10 +79,10 @@ ppQualifyName qual name mdl =
         Just _       -> ppFullQualName mdl name
         -- some other module, D.x -> D.x
         Nothing      -> ppFullQualName mdl name
-    AbbreviateQual abbrevs localmdl ->
+    AliasedQual aliases localmdl ->
       case (moduleString mdl == moduleString localmdl,
-            M.lookup mdl abbrevs) of
-        (False, Just abbrev) -> ppQualName abbrev name
+            M.lookup mdl aliases) of
+        (False, Just alias) -> ppQualName alias name
         _ -> ppName name
 
 
-- 
cgit v1.2.3