#r "packages/FSharp.Data/lib/net40/FSharp.Data.dll"

open FSharp.Data

open FSharp.Data.JsonExtensions

let animals =

JsonValue.Parse

"""

let dogs =

[ for dog in animals?dogs -> dog?name ]

type Simple = JsonProvider<""" { "name":"John", "age":94 } """>

let simple = Simple.Parse(""" { "name":"Tomas", "age":4 } """)

simple.Age

simple.Name

type Customers = JsonProvider<"""

let customers = Customers.Parse """

[ for c in customers.Customers -> c.Name ]

let newOrder = Customers.Order(number = "N36214", item = "nexus7", quantity = 1636)

let newCustomer = Customers.Customer(name = "FabPhone", orders = [| newOrder|])

let jsonText = newCustomer.JsonValue.ToString()

type Person = JsonProvider<"""

Person.Parse("""

type GitHub = JsonProvider<"https://api.github.com/repos/dotnet/coreclr/issues">

let topRecentlyUpdatedIssues =

GitHub.GetSamples()

|> Seq.filter (fun issue -> issue.State = "open")

|> Seq.sortBy (fun issue -> System.DateTime.Now - issue.UpdatedAt)

|> Seq.truncate 5

for issue in topRecentlyUpdatedIssues do

printfn "#%d %s" issue.Number issue.Title

let issueSample = """

type GitHubIssue = JsonProvider<issueSample, RootName="issue">

let newIssue = GitHubIssue.Issue("Test issue",

"This is a test issue created in F# Data documentation",

assignee = "",

labels = [| |],

milestone = 0)

type WorldBank = JsonProvider<"data/WorldBank.json">

let doc = WorldBank.GetSample()

let docAsync = WorldBank.AsyncLoad("http://api.worldbank.org/country/cz/indicator/GC.DOD.TOTL.GD.ZS?format=json")

docAsync |> Async.RunSynchronously