Put a full Message in ReceivedZigbeeEvent

We'll need the topic later.

NightLight.Core/Models.fs

@@ -4,12 +4,12 @@ open System
 
 type State = { Time: DateTime }
 
-type Event =
-    | ReceivedZigbeeEvent of payload: string
-    | TimeChanged of DateTime
-
 type Message = { Topic: string; Payload: string }
 
+type Event =
+    | ReceivedZigbeeEvent of Message
+    | TimeChanged of DateTime
+
 type ParseZigbeeEventError =
     | InvalidJson
     | MissingTypeField

NightLight.Core/ZigbeeEvents.fs

@@ -6,9 +6,9 @@ open FSharp.Data
 
 type ZigbeeEvent = DeviceAnnounce of FriendlyName: string
 
-let parseZigbeeEvent str =
+let parseZigbeeEvent (message: Message) =
     result {
-        let! jsonValue = JsonValue.TryParse str |> Result.requireSome InvalidJson
+        let! jsonValue = JsonValue.TryParse message.Payload |> Result.requireSome InvalidJson
 
         let! messageType = jsonValue.TryGetProperty "type" |> Result.requireSome MissingTypeField
         let! messageData = jsonValue.TryGetProperty "data" |> Result.requireSome MissingDataField

NightLight/Program.fs

@@ -51,7 +51,9 @@ let private mqttMessageToReceivedZigbeeEvent (message: MqttApplicationMessage) =
     let payload = message.Payload
     let decodedPayload = Encoding.UTF8.GetString(&payload)
 
-    ReceivedZigbeeEvent decodedPayload
+    ReceivedZigbeeEvent
+        { Topic = message.Topic
+          Payload = decodedPayload }
 
 [<EntryPoint>]
 let mainAsync _ =