license

src/event.ml

@@ -1,3 +1,5 @@
+(* BSD-2-Clause License *)
+
 type _ t =
   | Keyboard : Jv.t -> [> `Keyboard ] t
   | Mouse : Jv.t -> [> `Mouse ] t

src/event.mli

@@ -1,3 +1,5 @@
+(* BSD-2-Clause License *)
+
 type _ t =
   | Keyboard : Jv.t -> [> `Keyboard ] t
   | Mouse : Jv.t -> [> `Mouse ] t

src/global.ml

@@ -1,3 +1,5 @@
+(* BSD-2-Clause License *)
+
 let leaflet =
   match Jv.(find global "L") with
   | Some l -> l

src/latlng.ml

@@ -1,3 +1,5 @@
+(* BSD-2-Clause License *)
+
 type t = Jv.t
 
 let create lat lng =

src/latlng.mli

@@ -1,3 +1,5 @@
+(* BSD-2-Clause License *)
+
 type t
 
 val create : float -> float -> t

src/layer.ml

@@ -1,3 +1,5 @@
+(* BSD-2-Clause License *)
+
 type _ t =
   | Basic : Jv.t -> [> `Basic ] t
   | Geojson : Jv.t -> [> `Geojson ] t

src/layer.mli

@@ -1,3 +1,5 @@
+(* BSD-2-Clause License *)
+
 type _ t =
   | Basic : Jv.t -> [> `Basic ] t
   | Geojson : Jv.t -> [> `Geojson ] t

src/map.ml

@@ -1,3 +1,5 @@
+(* BSD-2-Clause License *)
+
 type t = Jv.t
 
 let of_jv = Fun.id

src/map.mli

@@ -1,3 +1,5 @@
+(* BSD-2-Clause License *)
+
 type t
 
 val create : ?options:Jv.t -> string -> t

src/popup.ml

@@ -1,3 +1,5 @@
+(* BSD-2-Clause License *)
+
 type t = Jv.t
 
 let popup = Jv.call Global.leaflet "popup" [||]

src/popup.mli

@@ -1,3 +1,5 @@
+(* BSD-2-Clause License *)
+
 type t
 
 val set_latlng : Latlng.t -> unit