mirror of
https://github.com/supleed2/ELEC60015-HLP-CW.git
synced 2024-12-22 13:35:50 +00:00
Fix Dragging
This commit is contained in:
parent
464c09a7dc
commit
dcaa702a0f
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in a new issue