From b55e48ab22e1dc44f26ba959a6ff8257e46d89fe Mon Sep 17 00:00:00 2001
From: Sven van Heugten <sven@memcmp.org>
Date: Sat, 17 Jan 2026 16:12:16 +0100
Subject: [PATCH] Get rid of partOfDayChanged

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

diff --git a/NightLight.Core/NightLightStateMachine.fs b/NightLight.Core/NightLightStateMachine.fs
index 0bec604..4a8e77f 100644
--- a/NightLight.Core/NightLightStateMachine.fs
+++ b/NightLight.Core/NightLightStateMachine.fs
@@ -84,11 +84,11 @@ type NightLightStateMachine private (maybeState: NightLightState option) =
             | TimeChanged newTime, maybeCurrentState ->
                 let newPartOfDay = getPartOfDay newTime
 
-                let partOfDayChanged =
+                let newDayStarted =
                     let maybePreviousPartOfDay =
                         maybeCurrentState |> Option.map _.Time |> Option.map getPartOfDay
 
-                    maybePreviousPartOfDay <> Some newPartOfDay
+                    maybePreviousPartOfDay <> Some Day && newPartOfDay = Day
 
                 let newLightToState =
                     lights
@@ -102,11 +102,7 @@ type NightLightStateMachine private (maybeState: NightLightState option) =
                             |> Option.map _.LightToState[light].State
                             |> Option.defaultValue On
 
-                        let newState =
-                            if partOfDayChanged && newPartOfDay = Day then
-                                On
-                            else
-                                previousState
+                        let newState = if newDayStarted then On else previousState
 
                         light,
                         { Color = color