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