1 files changed, 0 insertions, 89 deletions
diff --git a/src/Lib/Leaflet.ml b/src/Lib/Leaflet.ml
deleted file mode 100644
index 282b5b0..0000000
--- a/src/Lib/Leaflet.ml
+++ /dev/null
@@ -1,89 +0,0 @@
-type layer
-
-type map_options =
-  { attributionControl : bool
-  }
-
-external map : string -> map_options -> layer = "map"
-  [@@bs.val] [@@bs.scope "L"]
-
-external setView : layer -> float array -> int -> unit = "setView"
-  [@@bs.send]
-
-type event
-
-external on : layer -> string -> (event -> unit) -> unit = "on"
-  [@@bs.send]
-
-type lat_lng =
-  { lat : float;
-    lng : float;
-  }
-
-external original_event : event -> Dom.mouseEvent = "originalEvent"
-  [@@bs.get]
-
-external lat_lng : event -> lat_lng = "latlng"
-  [@@bs.get]
-
-external target : event -> layer = "target"
-  [@@bs.get]
-
-external get_lat_lng : layer -> unit -> lat_lng = "getLatLng"
-  [@@bs.send]
-
-external title_layer : string -> layer = "tileLayer"
-  [@@bs.val] [@@bs.scope "L"]
-
-external add_layer : layer -> layer -> unit = "addLayer"
-  [@@bs.send]
-
-external clear_layers : layer -> unit = "clearLayers"
-  [@@bs.send]
-
-external remove : layer -> unit = "remove"
-  [@@bs.send]
-
-external get_layers : layer -> unit -> layer array = "getLayers"
-  [@@bs.send]
-
-(* Fit bounds *)
-
-external feature_group : layer array -> layer = "featureGroup"
-  [@@bs.val] [@@bs.scope "L"]
-
-type bounds
-
-external get_bounds : layer -> unit -> bounds = "getBounds"
-  [@@bs.send]
-
-type fit_bounds_options =
-  { padding: float array
-  }
-
-external fit_bounds : layer -> bounds -> fit_bounds_options -> unit = "fitBounds"
-  [@@bs.send]
-
-(* Icon *)
-
-type icon
-
-type div_icon_input =
-  { className : string
-  ; popupAnchor : float array
-  ; html : Dom.element
-  }
-
-external div_icon : div_icon_input -> icon = "divIcon"
-  [@@bs.val] [@@bs.scope "L"]
-
-(* Marker *)
-
-type markerInput =
-  { title : string
-  ; icon : icon
-  ; draggable : bool
-  }
-
-external marker : lat_lng -> markerInput -> layer = "marker"
-  [@@bs.val] [@@bs.scope "L"]