create_geojson need a json object
This commit is contained in:
parent
de5fe018d5
commit
f2a594f75d
2 changed files with 2 additions and 2 deletions
|
|
@ -110,7 +110,7 @@ let geojson_opt_to_jv = function
|
|||
| Filter f -> Jv.repr f
|
||||
| Coords_to_latlng f -> Jv.repr f
|
||||
|
||||
let create_geojson : Jv.t -> geojson_opt array -> [ `Geojson ] t =
|
||||
let create_geojson : Brr.Json.t -> geojson_opt array -> [ `Geojson ] t =
|
||||
fun geojson options ->
|
||||
let l =
|
||||
Array.map (fun o -> (geojson_opt_to_string o, geojson_opt_to_jv o)) options
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue