GoogleMapsSample.fs

let options = new MapOptions(8, center, MapTypeId.ROADMAP)
let map = new Google.Maps.Map(mapElement.Body, options)

// Create the marker
let markerOption = new MarkerOptions(center)
markerOption.Map <- map
let marker = new Marker(markerOption)

// Function for setting mark the lat/long.
let setLatLong (latLong: LatLng) =
    marker.SetPosition latLong
    map.SetCenter latLong
    {
        Location = ""
        Latitude = latLong.Lat()
        Longitude = latLong.Lng()
    }
    |> Result.Success
    |> state.Trigger 

// Search is either a given latitude and 
// longitude or a text string.
match search with
| Choice1Of2 (lat, long) ->
    setLatLong <| new LatLng(lat, long)
| Choice2Of2 location ->
    // Create a Geo Coder
    let geoCoder = Google.Maps.Geocoder()
    let req = Google.Maps.GeocoderRequest()
    req.Address <- location
    geoCoder.Geocode(req, fun (res, status) ->
        match List.ofArray res with
        | r :: _ ->
            setLatLong r.Geometry.Location
        | []    ->
            state.Trigger (Result.Failure [])
    )