[commit: ghc] master: Change use of if to when (8d6962a)

[David Terei]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/8d6962ac72c119b0d3ea41266127c84662fd9afd

>---------------------------------------------------------------

commit 8d6962ac72c119b0d3ea41266127c84662fd9afd
Author: David Terei <davidterei at gmail.com>
Date:   Fri Aug 19 01:50:57 2011 -0700

    Change use of if to when

>---------------------------------------------------------------

 ghc/InteractiveUI.hs |    9 ++++-----
 1 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs
index 169075f..32c134d 100644
--- a/ghc/InteractiveUI.hs
+++ b/ghc/InteractiveUI.hs
@@ -1753,11 +1753,10 @@ newDynFlags minus_opts = do
       (dflags', leftovers, warns) <- liftIO $ GHC.parseDynamicFlags dflags $ map noLoc minus_opts
       liftIO $ handleFlagWarnings dflags' warns
 
-      if (not (null leftovers))
-        then ghcError . CmdLineError
-           $ "Some flags have not been recognized: "
-          ++ (concat . intersperse ", " $ map unLoc leftovers)
-        else return ()
+      when (not $ null leftovers)
+           (ghcError . CmdLineError
+            $ "Some flags have not been recognized: "
+            ++ (concat . intersperse ", " $ map unLoc leftovers))
 
       new_pkgs <- setDynFlags dflags'