- putStrLn $ "Load it all:"
- flag <- load session LoadAllTargets
- when (failed flag) $ exitWith (ExitFailure 1)
- modgraph <- getModuleGraph session
- let mods = flattenSCCs $ topSortModuleGraph False modgraph Nothing
- graphData session mods handles
-
- where targetInfo [hs] = "target " ++ hs
- targetInfo hss = show (length hss) ++ " targets at one go"
+ mb_modgraph <- depanal session [] False
+ case mb_modgraph of
+ Nothing -> exitWith (ExitFailure 1)
+ Just modgraph -> do
+ let mods = flattenSCCs $ topSortModuleGraph False modgraph Nothing
+ graphData session mods handles