X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2FMain.hs;fp=ghc%2FMain.hs;h=2a9742d75fb4b6d5acdafa8dc70d8b30ba7fecdf;hb=8ee215b9aa2fe37b435e404aad8bb07c6ce1836d;hp=5a2ebc9e4c12fc1fdd3aeb0a834209a4c6ef2622;hpb=0206799932d7647cda24ab9823d70cb412f87fe9;p=ghc-hetmet.git

diff --git a/ghc/Main.hs b/ghc/Main.hs
index 5a2ebc9..2a9742d 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