Commit a411ad1d authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[Graph][Sigmax] typo fix for updateEdges

parent 94c53ffa
...@@ -186,7 +186,7 @@ markSelectedNodes sigma selectedNodeIds graphNodes = do ...@@ -186,7 +186,7 @@ markSelectedNodes sigma selectedNodeIds graphNodes = do
updateEdges :: Sigma.Sigma -> EdgesMap -> Effect Unit updateEdges :: Sigma.Sigma -> EdgesMap -> Effect Unit
updateEdges sigma edgesMap = do updateEdges sigma edgesMap = do
Sigma.forEachNode sigma \e -> do Sigma.forEachEdge sigma \e -> do
let mTEdge = Map.lookup e.id edgesMap let mTEdge = Map.lookup e.id edgesMap
case mTEdge of case mTEdge of
Nothing -> error $ "Edge id " <> e.id <> " not found in edgesMap" Nothing -> error $ "Edge id " <> e.id <> " not found in edgesMap"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment