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 }