blob: 45e2963ae2ed2a5fd39fa3df0b8e50375f56f277 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
type map
external map : string -> map = "map"
[@@bs.val] [@@bs.scope "L"]
external setView : map -> float array -> int -> unit = "setView"
[@@bs.send]
type mapEvent
external on : map -> string -> (mapEvent -> unit) -> unit = "on"
[@@bs.send]
type latLng =
{ lat : float;
lng : float;
}
external latLng : mapEvent -> latLng = "latlng"
[@@bs.get]
type addable
external tileLayer : string -> addable = "tileLayer"
[@@bs.val] [@@bs.scope "L"]
external addTo : addable -> map -> unit = "addTo"
[@@bs.send]
type markerInput =
{ title : string;
}
external marker : latLng -> markerInput -> addable = "marker"
[@@bs.val] [@@bs.scope "L"]
|