Solve conflicts

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