25 lines
997 B
FSharp
25 lines
997 B
FSharp
module internal NightLight.ZigbeeEvents
|
|
|
|
open NightLight.Models
|
|
open FsToolkit.ErrorHandling
|
|
open FSharp.Data
|
|
|
|
type ZigbeeEvent = DeviceAnnounce of FriendlyName: string
|
|
|
|
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 friendlyName)
|
|
| Some _ -> Error InvalidFriendlyNameField
|
|
| None -> Error MissingFriendlyNameField
|
|
| JsonValue.String _ -> Error UnknownType
|
|
| _ -> Error InvalidTypeField
|
|
}
|