#include "HsVersions.h"
import qualified GHC
--- import GHC ( ModSummary(..), GhcMonad )
+import GhcMonad
import HsSyn ( ImportDecl(..) )
-import PrelNames
import DynFlags
import Util
import HscTypes
import Exception
import ErrUtils
--- import MonadUtils ( liftIO )
import System.Directory
import System.FilePath
; 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
}
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