inline variable definiton

This commit is contained in:
Daniel Barlow 2024-11-22 17:46:55 +00:00
parent 20c287378a
commit 8f3c594699

View File

@ -246,11 +246,9 @@ updateModel msg model =
_ -> model _ -> model
TimeScale factor -> TimeScale factor ->
let fudge = factor { model |
len = model.duration - fudge startTime = model.startTime + factor / 2
in { model | , duration = model.duration - factor
startTime = model.startTime + fudge / 2
, duration = len
} }
Loaded result -> Loaded result ->