Turn PartOfDayChanged into an event
This commit is contained in:
parent
7ccc523c43
commit
eebd72f40c
2 changed files with 6 additions and 5 deletions
|
|
@ -94,7 +94,8 @@ let mainAsync _ =
|
|||
let currentPartOfDay = getPartOfDay DateTime.Now
|
||||
|
||||
if previousPartOfDay <> Some currentPartOfDay then
|
||||
do! onPartOfDayChanged currentPartOfDay |> publishZigbeeCommands mqttClient logger
|
||||
do! PartOfDayChanged |> handleEvent mqttClient logger currentPartOfDay
|
||||
|
||||
previousPartOfDay <- Some currentPartOfDay
|
||||
|
||||
do! Async.Sleep 10_000
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue