JsonSerializer.fs

namespace Infrastructure

open System.Text.Encodings.Web
open System.Text.Json
open System.Text.Json.Serialization

[<RequireQualifiedAccess>]
module JsonSerializer =
    let private setupOptions (options: JsonSerializerOptions) =
        options.PropertyNamingPolicy <- JsonNamingPolicy.CamelCase
        options.MaxDepth <- 0
        options.Encoder <- JavaScriptEncoder.UnsafeRelaxedJsonEscaping

        options.Converters.Add(
            JsonFSharpConverter(
                JsonUnionEncoding.UnwrapSingleCaseUnions
                ||| JsonUnionEncoding.FSharpLuLike,
                unionTagNamingPolicy = JsonNamingPolicy.CamelCase
            )
        )

        options.IgnoreNullValues <- true
        options

    let private options = JsonSerializerOptions() |> setupOptions

    let serialize value =
        JsonSerializer.Serialize(value, options)

    let deserialize<'T> (json: string) =
        JsonSerializer.Deserialize<'T>(json, options)