Change use of if to when
authorDavid Terei <davidterei@gmail.com>
Fri, 19 Aug 2011 08:50:57 +0000 (01:50 -0700)
committerDavid Terei <davidterei@gmail.com>
Fri, 19 Aug 2011 08:50:57 +0000 (01:50 -0700)
ghc/InteractiveUI.hs

index 169075f..32c134d 100644 (file)
@@ -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'