open System

open System.Collections

open System.Collections.Generic

open System.Linq

open System.Text

open System.Runtime.Serialization.Formatters

open System.IO

open System.Data

open System.ComponentModel.DataAnnotations

open System.Globalization

​

open Newtonsoft.Json

open Newtonsoft.Json.Linq

open Newtonsoft.Json.Converters

open Newtonsoft.Json.Serialization

​

// https://stackoverflow.com/questions/48119433/how-serialize-to-stream-with-json-net-on-f

​

// Note: I used the following answer for guidance on how to restrict the scope of sw and json

// https://stackoverflow.com/questions/4973795/f-keyword-use-and-using

​

​

type RequireObjectPropertiesContractResolver() =

    inherit DefaultContractResolver()

    override this.CreateObjectContract(objectType : Type) = 

        let contract = base.CreateObjectContract(objectType)

        contract.ItemRequired <- new System.Nullable<Required>(Required.Always);

        contract

​

type FooType = {

   id: int

   name: string 

   optional: int option 

}

​

​

let foo = new FooType (id = 101, name = "John")

​

let jsonConvertString = (JsonConvert.SerializeObject(foo))

​

printfn "\nResult using JsonConvert.SerializeObject():\n%s" jsonConvertString

​