From: Michal Terepeta <michal.terepeta@gmail.com>
Date: Tue, 30 Nov 2010 21:15:05 +0000 (+0000)
Subject: Improve error message of :set in ghci (ticket #4190).
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6d8766694198aff945f108745f5c43e100ad15a2

Improve error message of :set in ghci (ticket #4190).
---

diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs
index 278470f..ad46afb 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'