X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FDriverMkDepend.hs;h=1694aba9b87577cca5778647948d7582a861d4e2;hp=400f8bdf0b927ee84495c3a0b1ac31c3c27805e2;hb=0af06ed99ed56341adfdda4a92a0a36678780109;hpb=34cc75e1a62638f2833815746ebce0a9114dc26b

diff --git a/compiler/main/DriverMkDepend.hs b/compiler/main/DriverMkDepend.hs
index 400f8bd..1694aba 100644
--- a/compiler/main/DriverMkDepend.hs
+++ b/compiler/main/DriverMkDepend.hs
@@ -16,9 +16,8 @@ module DriverMkDepend (
 #include "HsVersions.h"
 
 import qualified GHC
-import GHC              ( ModSummary(..), GhcMonad )
+import GhcMonad
 import HsSyn            ( ImportDecl(..) )
-import PrelNames
 import DynFlags
 import Util
 import HscTypes
@@ -35,7 +34,6 @@ import FastString
 
 import Exception
 import ErrUtils
-import MonadUtils       ( liftIO )
 
 import System.Directory
 import System.FilePath
@@ -73,7 +71,7 @@ doMkDependHS srcs = do
     -- and complaining about cycles
     hsc_env <- getSession
     root <- liftIO getCurrentDirectory
-    mapM (liftIO . processDeps dflags hsc_env excl_mods root (mkd_tmp_hdl files)) sorted
+    mapM_ (liftIO . processDeps dflags hsc_env excl_mods root (mkd_tmp_hdl files)) sorted
 
     -- If -ddump-mod-cycles, show cycles in the module graph
     liftIO $ dumpModCycles dflags mod_summaries
@@ -218,9 +216,6 @@ processDeps dflags hsc_env excl_mods root hdl (AcyclicSCC node)
 
         ; do_imps True  (ms_srcimps node)
         ; do_imps False (ms_imps node)
-
-        ; when (dopt Opt_ImplicitPrelude (ms_hspp_opts node)) $
-            do_imp noSrcSpan False Nothing pRELUDE_NAME
         }
 
 
@@ -352,7 +347,7 @@ dumpModCycles dflags mod_summaries
     cycles = [ c | CyclicSCC c <- GHC.topSortModuleGraph True mod_summaries Nothing ]
 
     pp_cycles = vcat [ (ptext (sLit "---------- Cycle") <+> int n <+> ptext (sLit "----------"))
-                        $$ pprCycle c $$ text ""
+                        $$ pprCycle c $$ blankLine
                      | (n,c) <- [1..] `zip` cycles ]
 
 pprCycle :: [ModSummary] -> SDoc