Serialization with FsPickler

fspickler serialization.fs

type AccountIdentifier = 
| AccountIdentifier of System.Guid

type Account = {
    Identifier : AccountIdentifier
    Name       : string
}

open Nessos.FsPickler  // https://www.nuget.org/packages/FsPickler/

[<EntryPoint>]
let main argv = 
    let id = System.Guid.NewGuid() |> AccountIdentifier
    let account = {Identifier = id; Name = "Accounts Receiveable"}
    let d = [ id, account ] |> Map.ofList

    let fsp = new FsPickler()

    let stream = new System.IO.MemoryStream()
    
    fsp.Serialize<Map<AccountIdentifier, Account>>(stream, d)
    stream.Seek(0L, System.IO.SeekOrigin.Begin) |> ignore
    
    let roundTripResult = fsp.Deserialize<Map<AccountIdentifier, Account>>(stream)

    printfn "%s" roundTripResult.[id].Name
    
    0