Tissevert/Mainate
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Clarify a mapping over a Maybe for clearer syntax

Browse source
This commit is contained in:
Tissevert 2019-05-13 18:27:49 +02:00
parent f66d22af08
commit f44bf6259e
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Graph.hs
View file

@ -63,9 +63,9 @@ rewind graph = graph {focus = root graph}
follow :: Ord edge => Graph edge label -> edge -> Maybe (Graph edge label) follow :: Ord edge => Graph edge label -> edge -> Maybe (Graph edge label)
follow graph@(Graph {vertices, focus}) edge = follow graph@(Graph {vertices, focus}) edge =
Map.lookup edge (edges $ vertices ! focus) >>= \vertexID -> Just $ graph { setFocus <$> Map.lookup edge (edges $ vertices ! focus)
focus = vertexID where
} setFocus vertexID = graph {focus = vertexID}
stitch :: (Monoid label, Ord edge) => Graph edge label -> edge -> Graph edge label stitch :: (Monoid label, Ord edge) => Graph edge label -> edge -> Graph edge label
stitch graph edge = stitch graph edge =