fix: delete the connection the user clicks on

src/Component/Editor.purs

@@ -262,6 +262,7 @@ component =
     RemoveConnection id index -> do
       modify_ $ removeConnection $ Tuple id index
       void updateAll
+      printString $ "Removed " <> show id <> " w index " <> show index
       handleAction Rerender
     SetRuntimeValue functionName nodeId runtimeValue -> do
       modify_ $ setRuntimeValue functionName nodeId runtimeValue

src/Data/Editor/State.purs

@@ -392,9 +392,11 @@ initializeFunction name state =
 
 -- Remove a conenction from the current function
 removeConnection :: forall a s m. Tuple NodeId Int -> State a s m -> State a s m
-removeConnection (Tuple toId toIndex) state = compile state'
-  where
-  state' = set (_atCurrentNode toId <<< _nodeInput toIndex) Nothing state
+removeConnection (Tuple toId toIndex) =
+  execState
+    $ withCurrentFunction_ \currentFunction -> do
+        modify_ $ set (_atNode currentFunction toId <<< _Just <<< _nodeInput toIndex) Nothing
+        modify_ compile
 
 -- Deletes a node form a given function
 deleteNode :: forall a s m. FunctionName -> NodeId -> State a s m -> State a s m

src/typescript/target.ts

@@ -121,15 +121,19 @@ export const getMouseTarget = (
       (a, b) => distanceToMouse(a.closest) < distanceToMouse(b.closest),
       nodes.flatMap(([id, node]) =>
         node.inputs[0].attribs?.selectable
-          ? node.connections
-              .filter((connection) => connection.attribs!.connected)
-              .map((connection, index) => ({
-                index,
-                node,
-                id,
-                closest: closestPoint(connection, mousePosition)!,
-                geom: connection
-              }))
+          ? node.connections.flatMap((connection, index) =>
+              connection.attribs!.connected
+                ? [
+                    {
+                      index,
+                      node,
+                      id,
+                      closest: closestPoint(connection, mousePosition)!,
+                      geom: connection
+                    }
+                  ]
+                : []
+            )
           : []
       )
     )