Adapt to Geocoder API changes

besport · Dec 2, 2016 · c3eb8ec · c3eb8ec
1 parent 84cfec7
commit c3eb8ec
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/geoloc.ml b/geoloc.ml
@@ -240,8 +240,8 @@ let geocoder () = Geocoder.new_geocoder ()
 let address_of_latlng latlng =
   let at, au = Lwt.wait () in
   let callback' result_l (status:geocoder_status) =
-    match status with
-    | Ok ->
+    match status, result_l with
+    | Ok, Some result_l ->
       let addr_list =
         List.map GeocoderResult.formatted_address result_l in
       Lwt.wakeup au (addr_list)
@@ -259,8 +259,8 @@ let address_of_coords (lat,lng) =
 let latlng_of_address addr =
   let at, au = Lwt.wait () in
   let callback' result_l (status:geocoder_status) =
-    match status with
-    | Ok ->
+    match status, result_l with
+    | Ok, Some result_l ->
       if List.length result_l = 0
       then Lwt.wakeup au None
       else