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

Accept TimeChanged events instead of PartOfDayChanged events

Browse source
This commit is contained in:
Sven van Heugten 2026-01-03 19:03:17 +01:00
parent e226d092d8
commit 506cf0c848
2 changed files with 21 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

22
NightLight/Program.fs
View file

@ -5,7 +5,6 @@ open System.Threading.Tasks
open Microsoft.Extensions.Logging
open MQTTnet
open MQTTnet.Protocol
open NightLight.PartsOfDay
open NightLight.ZigbeeEvents
open NightLight.ZigbeeCommands
open NightLight.Core
@ -86,7 +85,7 @@ let mainAsync _ =
let mqttClientOptions = MqttClientOptionsBuilder().WithTcpServer(server).Build()
let stateLock = new SemaphoreSlim(1, 1)
let mutable state = { PartOfDay = getPartOfDay DateTime.Now }
let mutable state = { Time = DateTime.Now }
mqttClient.add_ApplicationMessageReceivedAsync (fun e ->
async {
@ -108,21 +107,14 @@ let mainAsync _ =
|> Async.AwaitTask
|> Async.Ignore
let mutable previousPartOfDay: PartOfDay option = None
while true do
let currentPartOfDay = getPartOfDay DateTime.Now
do! stateLock.WaitAsync() |> Async.AwaitTask
if previousPartOfDay <> Some currentPartOfDay then
do! stateLock.WaitAsync() |> Async.AwaitTask
try
let! newState = PartOfDayChanged currentPartOfDay |> handleEvent mqttClient logger state
state <- newState
finally
stateLock.Release() |> ignore
previousPartOfDay <- Some currentPartOfDay
try
let! newState = TimeChanged DateTime.Now |> handleEvent mqttClient logger state
state <- newState
finally
stateLock.Release() |> ignore
do! Async.Sleep 10_000