src/library/Data/Graphs.hs
Replace case with fromMaybe Open
Open
getNode id = case lookup id nodes of
Nothing -> error $ "edgeInContext: malformed graph, lookup of edge " ++ show id ++ " failed"
Just n -> n
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
case lookup id nodes of
Nothing -> error $
"edgeInContext: malformed graph, lookup of edge " ++
show id ++ " failed"
Just n -> n
Perhaps
fromMaybe
(error $
"edgeInContext: malformed graph, lookup of edge " ++
show id ++ " failed")
(lookup id nodes)