removeConnectedEdges :: Index -> [Edge] -> [Edge]
removeConnectedEdges i es = filter (not . (connectedTo i)) es
removeConnectedEdges :: Index -> [Edge] -> [Edge]
removeConnectedEdges i es = filter (not . (connectedTo i)) es
removeConnectedEdges i es = filter (not . (connectedTo i)) es