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

Turn Message into a record type

Browse source
This commit is contained in:
Sven van Heugten 2026-01-03 19:34:33 +01:00
parent ab6e123efc
commit 10e26a4866
4 changed files with 10 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

18
NightLight/Program.fs
View file

@ -9,21 +9,17 @@ open NightLight.Models
open NightLight.Core
let private generateMqttMessage zigbeeCommand =
match zigbeeCommand with
| Message(topic, payload) ->
MqttApplicationMessageBuilder()
.WithTopic(topic)
.WithPayload(payload)
.WithQualityOfServiceLevel(MqttQualityOfServiceLevel.AtLeastOnce)
.Build()
MqttApplicationMessageBuilder()
.WithTopic(zigbeeCommand.Topic)
.WithPayload(zigbeeCommand.Payload)
.WithQualityOfServiceLevel(MqttQualityOfServiceLevel.AtLeastOnce)
.Build()
let private publishZigbeeCommands (mqttClient: IMqttClient) (logger: ILogger) (commands: ZigbeeCommand seq) =
let private publishZigbeeCommands (mqttClient: IMqttClient) (logger: ILogger) (commands: Message seq) =
async {
commands
|> Seq.iter (fun command ->
match command with
| Message(topic, payload) ->
logger.LogInformation("Publishing message {Payload} to topic {Topic}...", payload, topic))
logger.LogInformation("Publishing message {Payload} to topic {Topic}...", command.Payload, command.Topic))
return!
commands