diff options
Diffstat (limited to 'src/Haddock/Options.hs')
| -rw-r--r-- | src/Haddock/Options.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Haddock/Options.hs b/src/Haddock/Options.hs index 1fe7a9f5..71be8f2e 100644 --- a/src/Haddock/Options.hs +++ b/src/Haddock/Options.hs @@ -226,10 +226,10 @@ 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 + "full":_ -> FullQual + "local":_ -> LocalQual Nothing + "relative":_ -> RelativeQual Nothing + _ -> NoQual verbosity :: [Flag] -> Verbosity |