diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2022-08-29 15:58:16 +0200 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2022-08-29 15:58:16 +0200 |
| commit | ca737457a4df4fbca25fe1c94c358a5b3b8da173 (patch) | |
| tree | 037747046b8ba79f7882dfb4a5b0146ea81dac91 /src/lib/Codec/Pesto/Graph.lhs | |
| parent | c03c0ff4437ba4c9169b6f240f062cd3df40a023 (diff) | |
| download | pesto-ca737457a4df4fbca25fe1c94c358a5b3b8da173.tar.gz pesto-ca737457a4df4fbca25fe1c94c358a5b3b8da173.tar.bz2 pesto-ca737457a4df4fbca25fe1c94c358a5b3b8da173.zip | |
graph: Use node id when querying incoming/outcoming nodes/edges
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] |