Rename some stuff
This commit is contained in:
parent
e422f03217
commit
9fa7037f0e
1 changed files with 6 additions and 7 deletions
|
|
@ -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)
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue