diff options
| author | Tobias Brandt <tob.brandt@gmail.com> | 2010-08-27 07:01:21 +0000 |
|---|---|---|
| committer | Tobias Brandt <tob.brandt@gmail.com> | 2010-08-27 07:01:21 +0000 |
| commit | 2b87648737ad5b07e30d9bb03f7c4e3953566c24 (patch) | |
| tree | 36454035a50838b558720351f0cd4886e19dfeb2 /src/Haddock/Options.hs | |
| parent | 957f4ad40b1eb9931d2b2de80f4bc8e28e22b4fa (diff) | |
adding the option to fully qualify identifiers
Diffstat (limited to 'src/Haddock/Options.hs')
| -rw-r--r-- | src/Haddock/Options.hs | 5 |
1 files changed, 4 insertions, 1 deletions
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 |