diff options
Diffstat (limited to 'src/Haddock/Options.hs')
| -rw-r--r-- | src/Haddock/Options.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/Haddock/Options.hs b/src/Haddock/Options.hs index 0a8ebe94..1fe7a9f5 100644 --- a/src/Haddock/Options.hs +++ b/src/Haddock/Options.hs @@ -222,6 +222,16 @@ optDumpInterfaceFile flags = optLast [ str | Flag_DumpInterface str <- flags ] 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":_ -> FullQuali + "local":_ -> LocalQuali Nothing + "relative":_ -> RelativeQuali Nothing + _ -> NoQuali + + verbosity :: [Flag] -> Verbosity verbosity flags = case [ str | Flag_Verbosity str <- flags ] of |