Extra Thoth.Json coders for enum types

Script.fsx

open Thoth.Json.Net

type MyEnum =
    | Foo = 1
    | Bar = 2

type MyRecord =
    { Field1: string
      Field2: MyEnum }

let inline enumDecoder< ^T when ^T : enum<int32> > =
    Decode.int |> Decode.map (fun x -> enum< ^T > x)

let test() =
    let extra =
        Extra.empty
        |> Extra.withCustom (fun (x: MyEnum) -> int x |> Encode.int) enumDecoder
    let enc = Encode.Auto.generateEncoder<MyRecord>(extra=extra)
    let dec = Decode.Auto.generateDecoder<MyRecord>(extra=extra)
    let x = { Field1 = "Hello World from F#!"; Field2 = MyEnum.Bar }
    let json = enc x |> Encode.toString 4
    let parsed = Decode.fromString dec json
    printfn "JSON %s" json
    printfn "PARSED %A" parsed