diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-06-14 14:48:29 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-06-14 14:48:29 +0000 |
| commit | a7f88c2f7900257d6791286f653cf141ebcb81c4 (patch) | |
| tree | db9f10aa748c1d519025d400a1ada933d4d7eacc /compiler/ghci | |
| parent | f586a36da133d01607f1936f771722e88b3b3574 (diff) | |
| download | haskell-a7f88c2f7900257d6791286f653cf141ebcb81c4.tar.gz | |
Allow flags to be marked as deprecated
Diffstat (limited to 'compiler/ghci')
| -rw-r--r-- | compiler/ghci/InteractiveUI.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index a49109abfb..994c0e166e 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -38,6 +38,7 @@ import Name import SrcLoc -- Other random utilities +import ErrUtils import Digraph import BasicTypes hiding (isTopLevel) import Panic hiding (showException) @@ -1487,7 +1488,8 @@ newDynFlags :: [String] -> GHCi () newDynFlags minus_opts = do dflags <- getDynFlags let pkg_flags = packageFlags dflags - (dflags',leftovers) <- io $ GHC.parseDynamicFlags dflags minus_opts + (dflags', leftovers, warns) <- io $ GHC.parseDynamicFlags dflags minus_opts + io $ handleFlagWarnings dflags' warns if (not (null leftovers)) then throwDyn (CmdLineError ("unrecognised flags: " ++ |