diff options
| author | David Waern <david.waern@gmail.com> | 2010-10-16 18:47:07 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-10-16 18:47:07 +0000 |
| commit | 1bd03d283f98d7841efd2ce4b75900f558e26c83 (patch) | |
| tree | ecee6085e910967e08f15a2dd688a364602066d2 /src/Haddock/Options.hs | |
| parent | 52a3bdb03333ef97f7d81a9b058eb07002b7909c (diff) | |
Style police
Diffstat (limited to 'src/Haddock/Options.hs')
| -rw-r--r-- | src/Haddock/Options.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Haddock/Options.hs b/src/Haddock/Options.hs index 71be8f2e..f9c86811 100644 --- a/src/Haddock/Options.hs +++ b/src/Haddock/Options.hs @@ -24,7 +24,7 @@ module Haddock.Options ( wikiUrls, optDumpInterfaceFile, optLaTeXStyle, - optQualification, + qualification, verbosity, ghcFlags, readIfaceArgs @@ -223,13 +223,13 @@ 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":_ -> FullQual - "local":_ -> LocalQual Nothing - "relative":_ -> RelativeQual Nothing - _ -> NoQual +qualification :: [Flag] -> Qualification +qualification flags = + case map (map Char.toLower) [ str | Flag_Qualification str <- flags ] of + "full":_ -> FullQual + "local":_ -> LocalQual Nothing + "relative":_ -> RelativeQual Nothing + _ -> NoQual verbosity :: [Flag] -> Verbosity |