Texas A&M Geolocation Service in F#

TAMGeolocationService

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

open System.IO
open System.Text
open FSharp.Data

[<Literal>]
let sample = "..\Data\TAMUHttpGet.json"

type Context = JsonProvider<sample>

let streetAddress = "1600 Pennslyvania Ave"
let city = "Washington"
let state = "DC"
let zip = "20500"
let apiKey = "XXXXXXX"

let stringBuilder = new StringBuilder()
stringBuilder.Append("https://geoservices.tamu.edu/Services/Geocode/WebService/GeocoderWebServiceHttpNonParsed_V04_01.aspx") |> ignore
stringBuilder.Append("?streetAddress=") |> ignore
stringBuilder.Append(streetAddress) |> ignore
stringBuilder.Append("&city=") |> ignore
stringBuilder.Append(city) |> ignore
stringBuilder.Append("&state=") |> ignore
stringBuilder.Append(state) |> ignore
stringBuilder.Append("&zip=") |> ignore
stringBuilder.Append(zip) |> ignore
stringBuilder.Append("&apiKey=") |> ignore
stringBuilder.Append(apiKey) |> ignore
stringBuilder.Append("&version=4.01") |> ignore
stringBuilder.Append("&format=json") |> ignore

let searchUri = stringBuilder.ToString()
let searchResult = Context.Load(searchUri)

let firstResult = searchResult.OutputGeocodes |> Seq.head
firstResult.OutputGeocode.Latitude
firstResult.OutputGeocode.Longitude
firstResult.OutputGeocode.MatchScore