Skip to content

Instantly share code, notes, and snippets.

@yodiz
Created June 10, 2020 12:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save yodiz/13413cacb41b1a6760e4c7e7301aabd9 to your computer and use it in GitHub Desktop.
Save yodiz/13413cacb41b1a6760e4c7e7301aabd9 to your computer and use it in GitHub Desktop.
type Rec = { A : int; B : string }
let customServiceSchema : JsonSchemaType<Rec> =
recordSchema<Rec> "My Record" ""
[|
qouteField "id" "" SchemaJSON.int32 <@ fun x -> x.A @>
qouteField "status" "" SchemaJSON.string <@ fun x -> x.B @>
|]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment