summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Library/GraphPart.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/Library/GraphPart.hs b/Library/GraphPart.hs
index f2ef7bc..97503eb 100644
--- a/Library/GraphPart.hs
+++ b/Library/GraphPart.hs
@@ -12,6 +12,7 @@ module Library.GraphPart (
outputLab,
graphAdd,
+ graphAddList,
graphDel,
size,
addedSize,
@@ -102,6 +103,12 @@ graphAdd gpart i o graph =
+graphAddList :: [(GraphPart, Maybe (Node,Int), [(Node,Int)])] -> PGraph -> PGraph
+graphAddList partList graph =
+ foldl' (\g (x,y,z) -> graphAdd x y z g) graph partList
+
+
+
graphDel :: GraphPart -> PGraph -> PGraph
graphDel gpart graph =
let n = map fst . nodes $ gpart