diff options
| author | Michal Terepeta <michal.terepeta@gmail.com> | 2010-11-30 21:15:05 +0000 |
|---|---|---|
| committer | Michal Terepeta <michal.terepeta@gmail.com> | 2010-11-30 21:15:05 +0000 |
| commit | 6d8766694198aff945f108745f5c43e100ad15a2 (patch) | |
| tree | 9b45b61eae86c1d772215264018d0ed85cffae32 /ghc/InteractiveUI.hs | |
| parent | 4b2dd6b968640830631b4071b962c47c541f9722 (diff) | |
| download | haskell-6d8766694198aff945f108745f5c43e100ad15a2.tar.gz | |
Improve error message of :set in ghci (ticket #4190).
Diffstat (limited to 'ghc/InteractiveUI.hs')
| -rw-r--r-- | ghc/InteractiveUI.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 278470fb1a..ad46afbe58 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1562,7 +1562,9 @@ newDynFlags minus_opts = do liftIO $ handleFlagWarnings dflags' warns if (not (null leftovers)) - then ghcError $ errorsToGhcException leftovers + then ghcError . CmdLineError + $ "Some flags have not been recognized: " + ++ (concat . intersperse ", " $ map unLoc leftovers) else return () new_pkgs <- setDynFlags dflags' |