Sensible json defaults

Json.fs

module Json

open Microsoft.FSharpLu.Json
open Newtonsoft.Json
open Newtonsoft.Json.Serialization
open Newtonsoft.Json.Converters

let private compactJsonSerializerSettings =
  let settings = Compact.TupleAsArraySettings.settings

  StringEnumConverter(CamelCaseText = true)
  |> settings.Converters.Add

  settings.ContractResolver <- CamelCasePropertyNamesContractResolver()
  settings.NullValueHandling <- NullValueHandling.Ignore
  settings.MissingMemberHandling <- MissingMemberHandling.Ignore
  JsonConvert.DefaultSettings <- fun () -> settings
  settings

let serialize o =
  JsonConvert.SerializeObject(o, compactJsonSerializerSettings)

let deserialize<'T> json =
  JsonConvert.DeserializeObject<'T>(json, compactJsonSerializerSettings)