From b774e696e8b1f5c4d20acd0fc45cbc9c1db76edb Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 19 Jan 2008 21:26:02 +0000 Subject: [PATCH] Fix giving an error if we are given conflicting mode flags --- compiler/main/Main.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/main/Main.hs b/compiler/main/Main.hs index 7c77caf..dc03f64 100644 --- a/compiler/main/Main.hs +++ b/compiler/main/Main.hs @@ -397,10 +397,10 @@ mode_flags = setMode :: CmdLineMode -> String -> ModeM () setMode m flag = do (old_mode, old_flag, flags) <- getCmdLineState - when (notNull old_flag && flag /= old_flag) $ - throwDyn (UsageError - ("cannot use `" ++ old_flag ++ "' with `" ++ flag ++ "'")) - putCmdLineState (m, flag, flags) + if notNull old_flag && flag /= old_flag + then throwDyn (UsageError + ("cannot use `" ++ old_flag ++ "' with `" ++ flag ++ "'")) + else putCmdLineState (m, flag, flags) addFlag :: String -> ModeM () addFlag s = do -- 1.7.10.4