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