Fix Dragging

This commit is contained in:
Aadi Desai 2022-03-20 16:30:08 +00:00
parent 464c09a7dc
commit dcaa702a0f
No known key found for this signature in database
GPG key ID: CFFFE425830EF4D9

View file

@ -2026,7 +2026,7 @@ let update (msg : Msg) (model : Model) : Model * Cmd<Msg> =
if segment.Id = model.SelectedSegment then Some segment
else None
riSegWireToASegs model.WX[connId]
model.WX[connId].Segments
|> List.choose choiceFunctor
|> List.tryExactlyOne