zapashcanon/leaflet
1
0
Fork 0
forked from swrup/leaflet
Code Issues Pull Requests Projects Releases Wiki Activity

create_geojson need a json object

Browse Source
This commit is contained in:
Swrup 2024-07-18 10:36:27 +02:00
parent 8b7e585168
commit 05d561dac6
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/layer.ml
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

2
src/layer.mli
View File

@ -62,7 +62,7 @@ type geojson_opt =
| Markers_inherit_options of bool
(** [create_geojson geojson] is a new geojson layer *)
val create_geojson : Jv.t -> geojson_opt array -> [ `Geojson ] t
val create_geojson : Brr.Json.t -> geojson_opt array -> [ `Geojson ] t
(** Tile layers *)