runSourceGraph :: (MonadIO m,HaapStack t m) => SourceGraphArgs -> [FilePath] -> Haap t m (SGReport,Set Entity)
runSourceGraph args files = orLogDefault def $ do
    (_,ms) <- liftIO $ parseHaskellFiles files
    let (cg,slices) = codeGraph args ms
    let mgs = moduleGraphs args ms
    
    let mccs = map (cyclomaticComplexity . fst) $ Map.elems mgs 
    let gcc = cyclomaticComplexity cg
    let mcalls = moduleCalls cg
    
    return (SGReport (maximumDef 0 mccs) gcc mcalls,slices)
runSourceGraph :: (MonadIO m,HaapStack t m) => SourceGraphArgs -> [FilePath] -> Haap t m (SGReport,Set Entity)
runSourceGraph args files = orLogDefault def $ do
    (_,ms) <- liftIO $ parseHaskellFiles files
    let (cg,slices) = codeGraph args ms
    let mgs = moduleGraphs args ms
    
    let mccs = map (cyclomaticComplexity . fst) $ Map.elems mgs 
    let gcc = cyclomaticComplexity cg
    let mcalls = moduleCalls cg
    
    return (SGReport (maximumDef 0 mccs) gcc mcalls,slices)
runSourceGraph args files = orLogDefault def $ do
    (_,ms) <- liftIO $ parseHaskellFiles files
    let (cg,slices) = codeGraph args ms
    let mgs = moduleGraphs args ms
    
    let mccs = map (cyclomaticComplexity . fst) $ Map.elems mgs 
    let gcc = cyclomaticComplexity cg
    let mcalls = moduleCalls cg
    
    return (SGReport (maximumDef 0 mccs) gcc mcalls,slices)