sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2025-03-20 04:46:22 +09:00
Code Issues Activity

Ticket tree view page

Browse source
This commit is contained in:
fr33domlover 2016-08-04 07:36:24 +00:00
parent b5014a0f5f
commit dc54a89503
7 changed files with 92 additions and 2 deletions
src/Data/Graph/DirectedAcyclic/View
Tree.hs

4
src/Data/Graph/DirectedAcyclic/View/Tree.hs
View file

@ -87,8 +87,8 @@ edgeView
-- ^ New edge label. For a full edge, 'Nothing'. For a link edge, 'Just' an
-- updated choice map that chooses this edge as the new full edge for the
-- child.
edgeView _ (_, _, False) = Nothing
edgeView choices (child, parent, True) = Just $ M.insert child parent choices
edgeView _ (_, _, True) = Nothing
edgeView choices (child, parent, False) = Just $ M.insert child parent choices
reverseEdge :: (n, n, a) -> (n, n, a)
reverseEdge (x, y, l) = (y, x, l)