mirror of
https://github.com/supleed2/ELEC60015-HLP-CW.git
synced 2024-11-10 02:05:48 +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
|
if segment.Id = model.SelectedSegment then Some segment
|
||||||
else None
|
else None
|
||||||
|
|
||||||
riSegWireToASegs model.WX[connId]
|
model.WX[connId].Segments
|
||||||
|> List.choose choiceFunctor
|
|> List.choose choiceFunctor
|
||||||
|> List.tryExactlyOne
|
|> List.tryExactlyOne
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue