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

Turn PartOfDayChanged into an event

Browse source
This commit is contained in:
Sven van Heugten 2026-01-03 18:34:08 +01:00
parent 7ccc523c43
commit eebd72f40c
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
NightLight.Core/Core.fs
View file

@ -17,7 +17,9 @@ let internal generateZigbeeCommandToFixLight partOfDay light =
generateZigbeeCommand light.FriendlyName color brightness
type Event = ReceivedZigbeeEvent of payload: string
type Event =
| ReceivedZigbeeEvent of payload: string
| PartOfDayChanged
let onEventReceived (partOfDay: PartOfDay) (event: Event) =
result {
@ -33,7 +35,5 @@ 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)
}
let onPartOfDayChanged (partOfDay: PartOfDay) =
lights |> Seq.map (generateZigbeeCommandToFixLight partOfDay)