From dcaa702a0f5b5944006a1004ed12cabe8906e244 Mon Sep 17 00:00:00 2001 From: Aadi Desai <21363892+supleed2@users.noreply.github.com> Date: Sun, 20 Mar 2022 16:30:08 +0000 Subject: [PATCH] Fix Dragging --- src/Renderer/DrawBlock/BusWire.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Renderer/DrawBlock/BusWire.fs b/src/Renderer/DrawBlock/BusWire.fs index 698d5b4..6f766cd 100644 --- a/src/Renderer/DrawBlock/BusWire.fs +++ b/src/Renderer/DrawBlock/BusWire.fs @@ -2026,7 +2026,7 @@ let update (msg : Msg) (model : Model) : Model * Cmd = if segment.Id = model.SelectedSegment then Some segment else None - riSegWireToASegs model.WX[connId] + model.WX[connId].Segments |> List.choose choiceFunctor |> List.tryExactlyOne