inline variable definiton

2024-11-22 17:46:55 +00:00 · 2024-11-22 17:46:55 +00:00 · 8f3c594699
commit 8f3c594699
parent 20c287378a
1 changed files with 4 additions and 6 deletions
--- a/frontend/src/Main.elm
+++ b/frontend/src/Main.elm
@ -246,12 +246,10 @@ updateModel msg model =

                _ -> model
        TimeScale factor ->
-            let fudge = factor
-                len = model.duration - fudge
-            in { model |
-                     startTime = model.startTime + fudge / 2
-               ,     duration = len
-               }
+            { model |
+                  startTime = model.startTime + factor / 2
+            ,     duration = model.duration - factor
+            }

        Loaded result ->
            case result of