codeGraph :: SourceGraphArgs -> ParsedModules -> (SGraph,Set Entity)
codeGraph args ms = (g',es)
    where
    mns = Map.keys ms
    g = filterGraph args $ graphData $ collapsedHData $ codeToGraph mns ms
    (g',es) = sliceGraph args g
codeGraph :: SourceGraphArgs -> ParsedModules -> (SGraph,Set Entity)
codeGraph args ms = (g',es)
    where
    mns = Map.keys ms
    g = filterGraph args $ graphData $ collapsedHData $ codeToGraph mns ms
    (g',es) = sliceGraph args g
codeGraph args ms = (g',es)
    where
    mns = Map.keys ms
    g = filterGraph args $ graphData $ collapsedHData $ codeToGraph mns ms
    (g',es) = sliceGraph args g