Rename some stuff

This commit is contained in:
Sven van Heugten 2026-01-17 15:57:03 +01:00
parent e422f03217
commit 9fa7037f0e

View file

@ -104,15 +104,14 @@ type NightLightStateMachine private (maybeState: NightLightState option) =
State = newState }) State = newState })
|> Map.ofSeq |> Map.ofSeq
let newState = let newNightLightStateMachine =
NightLightStateMachine( { Time = newTime
Some LightToState = newLightToState }
<| { Time = newTime |> Some
LightToState = newLightToState } |> NightLightStateMachine
)
return return
newState, newNightLightStateMachine,
if partOfDayChanged then if partOfDayChanged then
lights lights
|> Seq.collect (fun light -> generateZigbeeCommandsToFixLight newLightToState[light] light) |> Seq.collect (fun light -> generateZigbeeCommandsToFixLight newLightToState[light] light)