souplesse

commit 8f3c594699bc9f9089d15b4f065590b361451583
parent 20c287378ad93f08b3f2aef63719e3986e5c488a
Author: Daniel Barlow <dan@telent.net>
Date:   Fri, 22 Nov 2024 17:46:55 +0000

inline variable definiton

Diffstat:
M
frontend/src/Main.elm
 | 
10
++++------

1 file changed, 4 insertions(+), 6 deletions(-)
diff --git 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