From 1bd03d283f98d7841efd2ce4b75900f558e26c83 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sat, 16 Oct 2010 18:47:07 +0000
Subject: Style police

---
 src/Haddock/Backends/Xhtml/Names.hs |  4 ++++
 src/Haddock/Options.hs              | 16 ++++++++--------
 2 files changed, 12 insertions(+), 8 deletions(-)

(limited to 'src/Haddock')

diff --git a/src/Haddock/Backends/Xhtml/Names.hs b/src/Haddock/Backends/Xhtml/Names.hs
index d1423fc7..4d9f0739 100644
--- a/src/Haddock/Backends/Xhtml/Names.hs
+++ b/src/Haddock/Backends/Xhtml/Names.hs
@@ -42,6 +42,7 @@ ppRdrName = ppOccName . rdrNameOcc
 ppLDocName :: Qualification -> Located DocName -> Html
 ppLDocName qual (L _ d) = ppDocName qual d
 
+
 -- | Render a name depending on the selected qualification mode
 qualifyName :: Qualification -> DocName -> Html
 qualifyName qual docName@(Documented name mdl) = case qual of
@@ -69,6 +70,7 @@ qualifyName qual docName@(Documented name mdl) = case qual of
 -- this is just for exhaustiveness, but already handled by ppDocName
 qualifyName _ (Undocumented name) = ppName name
 
+
 ppDocName :: Qualification -> DocName -> Html
 ppDocName qual docName@(Documented name mdl) =
   linkIdOcc mdl (Just occName) << qualifyName qual docName
@@ -76,9 +78,11 @@ ppDocName qual docName@(Documented name mdl) =
 
 ppDocName _ (Undocumented name) = ppName name
 
+
 ppFullQualName :: Module -> Name -> Html
 ppFullQualName mdl name = toHtml $ moduleString mdl ++ '.' : getOccString name
 
+
 ppName :: Name -> Html
 ppName name = toHtml (getOccString name)
 
diff --git a/src/Haddock/Options.hs b/src/Haddock/Options.hs
index 71be8f2e..f9c86811 100644
--- a/src/Haddock/Options.hs
+++ b/src/Haddock/Options.hs
@@ -24,7 +24,7 @@ module Haddock.Options (
   wikiUrls,
   optDumpInterfaceFile,
   optLaTeXStyle,
-  optQualification,
+  qualification,
   verbosity,
   ghcFlags,
   readIfaceArgs
@@ -223,13 +223,13 @@ optLaTeXStyle :: [Flag] -> Maybe String
 optLaTeXStyle flags = optLast [ str | Flag_LaTeXStyle str <- flags ]
 
 
-optQualification :: [Flag] -> Qualification
-optQualification flags =
-    case map (map Char.toLower) [ str | Flag_Qualification str <- flags ] of
-        "full":_     -> FullQual
-        "local":_    -> LocalQual Nothing
-        "relative":_ -> RelativeQual Nothing
-        _            -> NoQual
+qualification :: [Flag] -> Qualification
+qualification flags =
+  case map (map Char.toLower) [ str | Flag_Qualification str <- flags ] of
+      "full":_     -> FullQual
+      "local":_    -> LocalQual Nothing
+      "relative":_ -> RelativeQual Nothing
+      _            -> NoQual
 
 
 verbosity :: [Flag] -> Verbosity
-- 
cgit v1.2.3