filterGraph :: SourceGraphArgs -> SGraph -> SGraph
filterGraph args g = updateGraph (filteredges . filternodes) g
    where
    filternodes = labfilter $ not . ignoreNode args
    filteredges = efilter $ \(_,_,e) -> not $ ignoreEdge args e
    
-- * slicing
filterGraph :: SourceGraphArgs -> SGraph -> SGraph
filterGraph args g = updateGraph (filteredges . filternodes) g
    where
    filternodes = labfilter $ not . ignoreNode args
    filteredges = efilter $ \(_,_,e) -> not $ ignoreEdge args e
    
-- * slicing
filterGraph args g = updateGraph (filteredges . filternodes) g
    where
    filternodes = labfilter $ not . ignoreNode args
    filteredges = efilter $ \(_,_,e) -> not $ ignoreEdge args e
    
-- * slicing