Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/8d6962ac72c119b0d3ea41266127c84662fd9afd >--------------------------------------------------------------- commit 8d6962ac72c119b0d3ea41266127c84662fd9afd Author: David Terei <[email protected]> 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' _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
