open System

open System.Linq

open System.Collections.Generic

​

type MetaData =

    { Id: int

      CreatedAt: DateTime

      UpdatedAt: DateTime }

​

type PersonCreate =

    { FirstName: String

      LastName: String }

​

type Person = 

    { MetaData : MetaData

      Data : PersonCreate

    }

​

let flattenRecord (record: obj) = 

  let rec getFields x = [

    for field in Reflection.FSharpType.GetRecordFields(x.GetType()) do

      let value = field.GetValue x

      if Reflection.FSharpType.IsRecord field.PropertyType then

        yield! getFields value

      else

        yield field.Name, value

  ]

​

  dict (getFields record)

​

flattenRecord {

  MetaData = { Id = 1; CreatedAt = DateTime.Now; UpdatedAt = DateTime.Now }

  Data = { FirstName = "John"; LastName = "Doe" }

} |> printfn "%A"