Turn Message into a record type

NightLight.Core/Core.fs

@@ -18,7 +18,7 @@ let internal generateZigbeeCommandToFixLight partOfDay light =
 
     generateZigbeeCommand light.FriendlyName color brightness
 
-let onEventReceived (state: State) (event: Event) : Result<State * ZigbeeCommand seq, ParseEventError> =
+let onEventReceived (state: State) (event: Event) : Result<State * Message seq, ParseEventError> =
     result {
         let partOfDay = getPartOfDay state.Time
 

NightLight.Core/Models.fs

@@ -8,7 +8,7 @@ type Event =
     | ReceivedZigbeeEvent of payload: string
     | TimeChanged of DateTime
 
-type Message = Message of Topic: string * Payload: string
+type Message = { Topic: string; Payload: string }
 
 type ParseZigbeeEventError =
     | InvalidJson

NightLight.Core/ZigbeeCommands.fs

@@ -22,4 +22,4 @@ let generateZigbeeCommand friendlyName targetColor targetBrightness =
     let topic = $"zigbee2mqtt/{friendlyName}/set"
     let payload = commandObj.ToJsonString()
 
-    Message(topic, payload)
+    { Topic = topic; Payload = payload }

NightLight/Program.fs

@@ -9,21 +9,17 @@ open NightLight.Models
 open NightLight.Core
 
 let private generateMqttMessage zigbeeCommand =
-    match zigbeeCommand with
+    MqttApplicationMessageBuilder()
-    | Message(topic, payload) ->
+        .WithTopic(zigbeeCommand.Topic)
-        MqttApplicationMessageBuilder()
+        .WithPayload(zigbeeCommand.Payload)
-            .WithTopic(topic)
+        .WithQualityOfServiceLevel(MqttQualityOfServiceLevel.AtLeastOnce)
-            .WithPayload(payload)
+        .Build()
-            .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
+            logger.LogInformation("Publishing message {Payload} to topic {Topic}...", command.Payload, command.Topic))
-            | Message(topic, payload) ->
-                logger.LogInformation("Publishing message {Payload} to topic {Topic}...", payload, topic))
 
         return!
             commands