From 29861370dd56f59557c3bcecd53fba0f88a89792 Mon Sep 17 00:00:00 2001
From: Henning Thielemann <git@henning-thielemann.de>
Date: Sun, 1 Apr 2012 16:25:02 +0200
Subject: emit an error message when the --qual option is used incorrectly

---
 src/Main.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index e423cf03..7d83866a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -189,6 +189,11 @@ renderStep flags pkgs interfaces = do
 render :: [Flag] -> [Interface] -> [InstalledInterface] -> SrcMap -> IO ()
 render flags ifaces installedIfaces srcMap = do
 
+  opt_qualification <-
+    case qualification flags of
+      Left msg -> throwE msg
+      Right q -> return q
+
   let
     title                = fromMaybe "" (optTitle flags)
     unicode              = Flag_UseUnicode `elem` flags
@@ -198,7 +203,6 @@ render flags ifaces installedIfaces srcMap = do
     opt_index_url        = optIndexUrl       flags
     odir                 = outputDir         flags
     opt_latex_style      = optLaTeXStyle     flags
-    opt_qualification    = qualification     flags
 
     visibleIfaces    = [ i | i <- ifaces, OptHide `notElem` ifaceOptions i ]
 
-- 
cgit v1.2.3