Chiron.Extensions.fs

module Chiron.Extensions

let tryDeserializeWith (fromJson : Json<'a>) : Json -> Choice<'a, string> =
    fun json ->
    match fromJson json with
    | JsonResult.Value x, _ -> Choice1Of2(x)
    | JsonResult.Error err, _ -> Choice2Of2(err)

let tryDeserializeWithP (_, fromJson : Json<'a>) : Json -> Choice<'a, string> =
    tryDeserializeWith fromJson

let deserializeWith (fromJson : Json<'a>) : Json -> 'a =
    fun json ->
        match tryDeserializeWith fromJson json with
        | Choice1Of2 x -> x
        | Choice2Of2 err -> failwith err

let deserializeWithP (_, fromJson : Json<'a>) : Json -> 'a =
    deserializeWith fromJson