From 2b87648737ad5b07e30d9bb03f7c4e3953566c24 Mon Sep 17 00:00:00 2001
From: Tobias Brandt <tob.brandt@gmail.com>
Date: Fri, 27 Aug 2010 07:01:21 +0000
Subject: adding the option to fully qualify identifiers

---
 src/Haddock/Options.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

diff --git a/src/Haddock/Options.hs b/src/Haddock/Options.hs
index 4df61fe3..6e590201 100644
--- a/src/Haddock/Options.hs
+++ b/src/Haddock/Options.hs
@@ -24,6 +24,7 @@ module Haddock.Options (
   wikiUrls,
   optDumpInterfaceFile,
   optLaTeXStyle,
+  optQualification,
   verbosity,
   ghcFlags,
   readIfaceArgs
@@ -74,6 +75,7 @@ data Flag
   | Flag_NoWarnings
   | Flag_UseUnicode
   | Flag_NoTmpCompDir
+  | Flag_Qualification String
   deriving (Eq)
 
 
@@ -120,6 +122,8 @@ options backwardsCompat =
       "file containing prologue text",
     Option ['t']  ["title"]    (ReqArg Flag_Heading "TITLE")
       "page heading",
+    Option ['q']  ["qual"] (ReqArg Flag_Qualification "QUALI")
+      "qualification of names, either \n'none' (default) or 'full'",
     Option ['d']  ["debug"]  (NoArg Flag_Debug)
       "extra debugging output",
     Option ['?']  ["help"]  (NoArg Flag_Help)
@@ -217,7 +221,6 @@ optDumpInterfaceFile flags = optLast [ str | Flag_DumpInterface str <- flags ]
 optLaTeXStyle :: [Flag] -> Maybe String
 optLaTeXStyle flags = optLast [ str | Flag_LaTeXStyle str <- flags ]
 
-
 verbosity :: [Flag] -> Verbosity
 verbosity flags =
   case [ str | Flag_Verbosity str <- flags ] of
-- 
cgit v1.2.3