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/Options.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'src/Haddock/Options.hs')

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