svenvanheugten/night-light
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rewrite construction of newLightToState

Browse source
This commit is contained in:
Sven van Heugten 2026-01-17 15:23:13 +01:00
parent 4d8fc44bee
commit 78b57258c1
1 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

21
NightLight.Core/NightLightStateMachine.fs
View file

@ -85,14 +85,19 @@ type NightLightStateMachine private (maybeState: NightLightState option) =
maybePreviousPartOfDay <> Some newPartOfDay maybePreviousPartOfDay <> Some newPartOfDay
let newLightToState = let newLightToState =
maybeState lights
|> Option.map _.LightToState |> Seq.map (fun light ->
|> Option.map (fun lightToState -> let previousState =
if partOfDayChanged && newPartOfDay = Day then maybeState |> Option.map _.LightToState[light] |> Option.defaultValue On
updateLightStateForRemoteControlledLights lightToState On
else let newState =
lightToState) if partOfDayChanged && newPartOfDay = Day then
|> Option.defaultValue (lights |> Seq.map (fun light -> light, On) |> Map.ofSeq) On
else
previousState
light, newState)
|> Map.ofSeq
let newState = let newState =
NightLightStateMachine( NightLightStateMachine(