diff options
| author | David Terei <davidterei@gmail.com> | 2011-08-19 01:50:57 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-08-19 01:50:57 -0700 |
| commit | 8d6962ac72c119b0d3ea41266127c84662fd9afd (patch) | |
| tree | 30e79f6890edf2c889d69c92d8eadbc1763881c6 /ghc | |
| parent | 5bbb5cf300073335828887a80deff0e4cfd757a8 (diff) | |
| download | haskell-8d6962ac72c119b0d3ea41266127c84662fd9afd.tar.gz | |
Change use of if to when
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 169075ff16..32c134d808 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' |