Add Outputable.blankLine and use it

[ghc-hetmet.git] / compiler / main / DriverMkDepend.hs

diff --git a/compiler/main/DriverMkDepend.hs b/compiler/main/DriverMkDepend.hs
index 2aa1aa2..656ced2 100644 (file)
--- a/compiler/main/DriverMkDepend.hs
+++ b/compiler/main/DriverMkDepend.hs
@@ -16,7 +16,7 @@ module DriverMkDepend (
 #include "HsVersions.h"
 
 import qualified GHC
-import GHC              ( ModSummary(..), GhcMonad )
+-- import GHC              ( ModSummary(..), GhcMonad )
 import HsSyn            ( ImportDecl(..) )
 import PrelNames
 import DynFlags
@@ -35,7 +35,7 @@ import FastString
 
 import Exception
 import ErrUtils
-import MonadUtils       ( liftIO )
+-- import MonadUtils       ( liftIO )
 
 import System.Directory
 import System.FilePath
@@ -352,7 +352,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