diff options
Diffstat (limited to 'src/lib/Codec/Pesto/Graph.lhs')
| -rw-r--r-- | src/lib/Codec/Pesto/Graph.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lib/Codec/Pesto/Graph.lhs b/src/lib/Codec/Pesto/Graph.lhs index 27dd967..a238012 100644 --- a/src/lib/Codec/Pesto/Graph.lhs +++ b/src/lib/Codec/Pesto/Graph.lhs @@ -266,11 +266,11 @@ Find graph’s root node(s), that is a node without outgoing edges: Get all nodes with edges pointing towards nodeid -> incomingEdges edges (nodeid, _) = filter ((==) nodeid . snd) edges -> incomingNodes nodes edges n = map ((!!) nodes . fst) $ incomingEdges edges n +> incomingEdges edges nodeid = filter ((==) nodeid . snd) edges +> incomingNodes nodes edges nodeid = map ((!!) nodes . fst) $ incomingEdges edges nodeid -> outgoingEdges edges (nodeid, _) = filter ((==) nodeid . fst) edges -> outgoingNodes nodes edges n = map ((!!) nodes . snd) $ outgoingEdges edges n +> outgoingEdges edges nodeid = filter ((==) nodeid . fst) edges +> outgoingNodes nodes edges nodeid = map ((!!) nodes . snd) $ outgoingEdges edges nodeid > test = ["graph" ~: testGraph, "ref" ~: testRef, "extract" ~: testExtract] |