dan/souplesse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

inline variable definiton

Browse Source
This commit is contained in:
Daniel Barlow 2024-11-22 17:46:55 +00:00
parent 20c287378a
commit 8f3c594699
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
frontend/src/Main.elm
View File

@ -246,12 +246,10 @@ 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 ->
case result of case result of