module internal NightLight.Core.ZigbeeEvents

open NightLight.Core.Models
open FsToolkit.ErrorHandling
open FSharp.Data

type ZigbeeEvent = DeviceAnnounce of DeviceFriendlyName

let parseZigbeeEvent (message: Message) =
    result {
        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

        return!
            match messageType with
            | JsonValue.String "device_announce" ->
                match messageData.TryGetProperty "friendly_name" with
                | Some(JsonValue.String friendlyName) -> Ok <| DeviceAnnounce(DeviceFriendlyName friendlyName)
                | Some _ -> Error InvalidFriendlyNameField
                | None -> Error MissingFriendlyNameField
            | JsonValue.String _ -> Error UnknownType
            | _ -> Error InvalidTypeField
    }