diff options
| author | David Waern <david.waern@gmail.com> | 2010-10-16 18:42:40 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-10-16 18:42:40 +0000 |
| commit | 52a3bdb03333ef97f7d81a9b058eb07002b7909c (patch) | |
| tree | e45b9af74f8a48a38a12851cc007d7b9e292a7b3 /src/Haddock/Options.hs | |
| parent | 0a93ff502d346fbbe809a336814a837aa10f120e (diff) | |
Use "qual" as an abbreviation for qualification instead of "quali" for consistency
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 |