A playground for JSON.Net

json-playground.fs

open Newtonsoft.Json

type FightSummary = 
    { 
        event: string
        winner: string option
        loser: string option
    }

type FighterOverallStatsInASpecificFight =
    { 
        fighter: string
        opponent: string
        [<JsonPropertyAttribute(PropertyName = "kd")>] knockdowns: int option
        [<JsonPropertyAttribute(PropertyName = "sigStrPercent")>] sigStrikePercentage: int option
        [<JsonPropertyAttribute(PropertyName = "tdPercent")>] takedownPercentage: int option
    }

type FightInfo = 
    { 
        fightSummary: FightSummary
        fighter1Stats: FighterOverallStatsInASpecificFight
        fighter2Stats: FighterOverallStatsInASpecificFight
    }


let myFight =
    { fightSummary =
        { event = "MyEvent" 
          winner = None
          loser = None }
      fighter1Stats =
        { fighter = "Hulk"
          opponent = "Hogan"
          knockdowns = None
          sigStrikePercentage = None
          takedownPercentage = None } 
      fighter2Stats =
        { fighter = "Hogan"
          opponent = "Hulk"
          knockdowns = None
          sigStrikePercentage = None
          takedownPercentage = None } }

myFight
|> fun o -> printfn "%A" o; o
|> JsonConvert.SerializeObject
|> fun s -> printfn "%s" s; s
|> fun s -> JsonConvert.DeserializeObject<FightInfo>(s)
|> fun o -> printfn "%A" o; o
|> fun o -> printfn "%A" (o = myFight)