change map creation

This commit is contained in:
Swrup 2022-06-18 07:53:26 +02:00
parent 06c614d2c5
commit 83527f5cae
3 changed files with 16 additions and 14 deletions

View file

@ -1,11 +1,5 @@
(* create map *)
let map =
let container =
match Brr.Document.find_el_by_id Brr.G.document (Jstr.of_string "map") with
| None -> failwith "map container not found"
| Some el -> el
in
Leaflet.Map.create container
let map = Leaflet.Map.create_on "map"
(* setup map *)
let () =