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
<| { Time = newTime
LightToState = newLightToState } LightToState = newLightToState }
) |> Some
|> 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)