From 9fa7037f0e7a22817ffe20556896a06a3579a721 Mon Sep 17 00:00:00 2001
From: Sven van Heugten <sven@memcmp.org>
Date: Sat, 17 Jan 2026 15:57:03 +0100
Subject: [PATCH] Rename some stuff

---
 NightLight.Core/NightLightStateMachine.fs | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/NightLight.Core/NightLightStateMachine.fs b/NightLight.Core/NightLightStateMachine.fs
index c93a0ac..cde9b73 100644
--- a/NightLight.Core/NightLightStateMachine.fs
+++ b/NightLight.Core/NightLightStateMachine.fs
@@ -104,15 +104,14 @@ type NightLightStateMachine private (maybeState: NightLightState option) =
                           State = newState })
                     |> Map.ofSeq
 
-                let newState =
-                    NightLightStateMachine(
-                        Some
-                        <| { Time = newTime
-                             LightToState = newLightToState }
-                    )
+                let newNightLightStateMachine =
+                    { Time = newTime
+                      LightToState = newLightToState }
+                    |> Some
+                    |> NightLightStateMachine
 
                 return
-                    newState,
+                    newNightLightStateMachine,
                     if partOfDayChanged then
                         lights
                         |> Seq.collect (fun light -> generateZigbeeCommandsToFixLight newLightToState[light] light)