create_geojson need a json object

This commit is contained in:
Swrup 2024-07-18 10:36:27 +02:00
parent de5fe018d5
commit f2a594f75d
2 changed files with 2 additions and 2 deletions

View file

@ -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