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

Transform onZigbeeEventReceived to onEventReceived

Browse source 
We'll add different events later.
This commit is contained in:
Sven van Heugten 2026-01-03 18:20:47 +01:00
parent f2864ffc47
commit 118dc03fdc
2 changed files with 15 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

22
NightLight.Core/Core.fs
View file

@ -17,18 +17,22 @@ let internal generateZigbeeCommandToFixLight partOfDay light =
generateZigbeeCommand light.FriendlyName color brightness
let onZigbeeEventReceived (partOfDay: PartOfDay) (decodedPayload: string) =
type Event = ReceivedZigbeeEvent of payload: string
let onEventReceived (partOfDay: PartOfDay) (event: Event) =
result {
let! zigbeeEvent = parseZigbeeEvent decodedPayload
match event with
| ReceivedZigbeeEvent payload ->
let! zigbeeEvent = parseZigbeeEvent payload
return
match zigbeeEvent with
| DeviceAnnounce friendlyName ->
let maybeLight = tryFindLight friendlyName
return
match zigbeeEvent with
| DeviceAnnounce friendlyName ->
let maybeLight = tryFindLight friendlyName
match maybeLight with
| Some light -> generateZigbeeCommandToFixLight partOfDay light |> Seq.singleton
| None -> Seq.empty
match maybeLight with
| Some light -> generateZigbeeCommandToFixLight partOfDay light |> Seq.singleton
| None -> Seq.empty
}
let onPartOfDayChanged (partOfDay: PartOfDay) =