X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDriverMkDepend.hs;h=48617ec50c67bdc29886957c6b28b207c368d1ca;hb=0a5613f40b0e32cf59966e6b56b807cdbe80aa7b;hp=f1f4770623b8cc282c6ca452572d41d2f4ea83ce;hpb=d436c70d43fb905c63220040168295e473f4b90a;p=ghc-hetmet.git

diff --git a/compiler/main/DriverMkDepend.hs b/compiler/main/DriverMkDepend.hs
index f1f4770..48617ec 100644
--- a/compiler/main/DriverMkDepend.hs
+++ b/compiler/main/DriverMkDepend.hs
@@ -18,7 +18,6 @@ module DriverMkDepend (
 import qualified GHC
 -- import GHC              ( ModSummary(..), GhcMonad )
 import HsSyn            ( ImportDecl(..) )
-import PrelNames
 import DynFlags
 import Util
 import HscTypes
@@ -218,9 +217,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 +348,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