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 })
|
||||
|> Map.ofSeq
|
||||
|
||||
let newState =
|
||||
NightLightStateMachine(
|
||||
Some
|
||||
<| { Time = newTime
|
||||
let newNightLightStateMachine =
|
||||
{ Time = newTime
|
||||
LightToState = newLightToState }
|
||||
)
|
||||
|> Some
|
||||
|> NightLightStateMachine
|
||||
|
||||
return
|
||||
newState,
|
||||
newNightLightStateMachine,
|
||||
if partOfDayChanged then
|
||||
lights
|
||||
|> Seq.collect (fun light -> generateZigbeeCommandsToFixLight newLightToState[light] light)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue