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

Introduce a State object instead of passing in partOfDay

Browse source 
We'll have some more complicated use cases for this later.
This commit is contained in:
Sven van Heugten 2026-01-03 18:58:00 +01:00
parent eebd72f40c
commit e226d092d8
2 changed files with 46 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

12
NightLight.Core/Core.fs
View file

@ -19,15 +19,20 @@ let internal generateZigbeeCommandToFixLight partOfDay light =
type Event =
| ReceivedZigbeeEvent of payload: string
| PartOfDayChanged
| PartOfDayChanged of newPartOfDay: PartOfDay
let onEventReceived (partOfDay: PartOfDay) (event: Event) =
type State = { PartOfDay: PartOfDay }
let onEventReceived (state: State) (event: Event) =
result {
let partOfDay = state.PartOfDay
match event with
| ReceivedZigbeeEvent payload ->
let! zigbeeEvent = parseZigbeeEvent payload
return
state,
match zigbeeEvent with
| DeviceAnnounce friendlyName ->
let maybeLight = tryFindLight friendlyName
@ -35,5 +40,6 @@ let onEventReceived (partOfDay: PartOfDay) (event: Event) =
match maybeLight with
| Some light -> generateZigbeeCommandToFixLight partOfDay light |> Seq.singleton
| None -> Seq.empty
| PartOfDayChanged -> return lights |> Seq.map (generateZigbeeCommandToFixLight partOfDay)
| PartOfDayChanged newPartOfDay ->
return { PartOfDay = newPartOfDay }, lights |> Seq.map (generateZigbeeCommandToFixLight partOfDay)
}