From 8f3c594699bc9f9089d15b4f065590b361451583 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Fri, 22 Nov 2024 17:46:55 +0000
Subject: [PATCH] inline variable definiton

---
 frontend/src/Main.elm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/frontend/src/Main.elm b/frontend/src/Main.elm
index d66ae73..d367ba0 100644
--- 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