aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-11-20 20:07:55 +0000
committerDavid Waern <david.waern@gmail.com>2010-11-20 20:07:55 +0000
commit371a8ef10f2fe1d30f203105750f04a9bdbb94b7 (patch)
treea6a270596b83861b5de49ac8c617a07ce0118d16 /src/Haddock
parent5eb77a445d384edc8afc94a389ab33df57a6b86f (diff)
Re-order functions
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Backends/Xhtml/Names.hs16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Haddock/Backends/Xhtml/Names.hs b/src/Haddock/Backends/Xhtml/Names.hs
index 32a9f64c..c5166d7f 100644
--- a/src/Haddock/Backends/Xhtml/Names.hs
+++ b/src/Haddock/Backends/Xhtml/Names.hs
@@ -43,6 +43,14 @@ ppLDocName :: Qualification -> Located DocName -> Html
ppLDocName qual (L _ d) = ppDocName qual d
+ppDocName :: Qualification -> DocName -> Html
+ppDocName qual docName =
+ case docName of
+ Documented name mdl ->
+ linkIdOcc mdl (Just (nameOccName name)) << ppQualifyName qual name mdl
+ Undocumented name -> ppQualifyName qual name (nameModule name)
+
+
-- | Render a name depending on the selected qualification mode
ppQualifyName :: Qualification -> Name -> Module -> Html
ppQualifyName qual name mdl =
@@ -68,14 +76,6 @@ ppQualifyName qual name mdl =
Nothing -> ppQualifyName FullQual name mdl
-ppDocName :: Qualification -> DocName -> Html
-ppDocName qual docName =
- case docName of
- Documented name mdl ->
- linkIdOcc mdl (Just (nameOccName name)) << ppQualifyName qual name mdl
- Undocumented name -> ppQualifyName qual name (nameModule name)
-
-
ppFullQualName :: Module -> Name -> Html
ppFullQualName mdl name = toHtml $ moduleString mdl ++ '.' : getOccString name