X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2FMain.hs;h=8348897bd3f83752160bbba3103e7d178cbe169a;hb=7068f60cc7aefef514f02d5927d5abbdcd5c94d4;hp=5a2ebc9e4c12fc1fdd3aeb0a834209a4c6ef2622;hpb=5a57316c7faf6628a0d999a3a8dc68f09a158487;p=ghc-hetmet.git

diff --git a/ghc/Main.hs b/ghc/Main.hs
index 5a2ebc9..8348897 100644
--- a/ghc/Main.hs
+++ b/ghc/Main.hs
@@ -208,7 +208,8 @@ main' postLoadMode dflags0 args flagWarnings = do
     case postLoadMode of
        ShowInterface f        -> liftIO $ doShowIface dflags3 f
        DoMake                 -> doMake srcs
-       DoMkDependHS           -> doMkDependHS (map fst srcs)
+       DoMkDependHS           -> do doMkDependHS (map fst srcs)
+                                    GHC.printWarnings
        StopBefore p           -> oneShot hsc_env p srcs >> GHC.printWarnings
        DoInteractive          -> interactiveUI srcs Nothing
        DoEval exprs           -> interactiveUI srcs $ Just $ reverse exprs
@@ -533,7 +534,7 @@ mode_flags =
          Supported
   , Flag "-abi-hash"    (PassFlag (setMode doAbiHashMode))
          Supported
-  , Flag "e"            (HasArg   (\s -> setMode (doEvalMode s) "-e"))
+  , Flag "e"            (SepArg   (\s -> setMode (doEvalMode s) "-e"))
          Supported
 
        -- -fno-code says to stop after Hsc but don't generate any code.