moduleGraph :: SourceGraphArgs -> ParsedModule -> (SGraph,Set Entity)
moduleGraph args m = g
    where
    (_,(n,_,fd)) = moduleToGraph m
    g = sliceGraph args $ filterGraph args $ graphData $ collapsedHData fd
moduleGraph :: SourceGraphArgs -> ParsedModule -> (SGraph,Set Entity)
moduleGraph args m = g
    where
    (_,(n,_,fd)) = moduleToGraph m
    g = sliceGraph args $ filterGraph args $ graphData $ collapsedHData fd
moduleGraph args m = g
    where
    (_,(n,_,fd)) = moduleToGraph m
    g = sliceGraph args $ filterGraph args $ graphData $ collapsedHData fd