ZigbeeCommand -> Message

There isn't really anything specifically Zigbee about this type.

NightLight.Core/Models.fs

@@ -8,7 +8,7 @@ type Event =
     | ReceivedZigbeeEvent of payload: string
     | TimeChanged of DateTime
 
-type ZigbeeCommand = ZigbeeCommand of Topic: string * Payload: string
+type Message = Message of 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()
 
-    ZigbeeCommand(topic, payload)
+    Message(topic, payload)

NightLight/Program.fs

@@ -10,7 +10,7 @@ open NightLight.Core
 
 let private generateMqttMessage zigbeeCommand =
     match zigbeeCommand with
-    | ZigbeeCommand(topic, payload) ->
+    | Message(topic, payload) ->
         MqttApplicationMessageBuilder()
             .WithTopic(topic)
             .WithPayload(payload)
@@ -22,7 +22,7 @@ let private publishZigbeeCommands (mqttClient: IMqttClient) (logger: ILogger) (c
         commands
         |> Seq.iter (fun command ->
             match command with
-            | ZigbeeCommand(topic, payload) ->
+            | Message(topic, payload) ->
                 logger.LogInformation("Publishing message {Payload} to topic {Topic}...", payload, topic))
 
         return!