Merge pull request #24 from hannesm/next

remove mirage_kv_lwt module, remove mirage-device dependency

Author: hannesm

.travis.yml

@@ -1,3 +1,9 @@
+### v4.0.0
+
+* Remove Mirage_kv_lwt module
+* remove mirage-device dependency
+* Adapt to fmt 0.8.7 dependency
+
 ### v3.0.1 (2019-11-04)
 
 * provide deprecated Mirage_kv_lwt for smooth transition (#21 @hannesm)

CHANGES.md

@@ -9,14 +9,13 @@ bug-reports:  "https://github.com/mirage/mirage-kv/issues"
 tags:         ["org:mirage"]
 
 build: [
-  ["dune" "subst"] {pinned}
+  ["dune" "subst"] {dev}
   ["dune" "build" "-p" name "-j" jobs]
   ["dune" "runtest" "-p" name] {with-test}
 ]
 depends: [
-  "ocaml" {>= "4.06.0"}
+  "ocaml" {>= "4.08.0"}
   "dune"
-  "mirage-device" {>= "2.0.0"}
   "fmt" {>= "0.8.7"}
   "lwt" {>= "4.0.0"}
   "alcotest" {with-test}

mirage-kv.opam

@@ -1,5 +1,4 @@
 (library
   (name        mirage_kv)
   (public_name mirage-kv)
-  (libraries   fmt mirage-device)
-  (wrapped false))
+  (libraries   fmt lwt))

src/dune

@@ -61,7 +61,8 @@ let pp_error ppf = function
 module type RO = sig
   type nonrec error = private [> error]
   val pp_error: error Fmt.t
-  include Mirage_device.S
+  type t
+  val disconnect: t -> unit Lwt.t
   type key = Key.t
   val exists: t -> key -> ([`Value | `Dictionary] option, error) result Lwt.t
   val get: t -> key -> (string, error) result Lwt.t

src/mirage_kv.ml

@@ -108,7 +108,12 @@ module type RO = sig
   val pp_error: error Fmt.t
   (** [pp_error] is the pretty-printer for errors. *)
 
-  include Mirage_device.S
+  type t
+  (** The type representing the internal state of the key-value store. *)
+
+  val disconnect: t -> unit Lwt.t
+  (** Disconnect from the key-value store. While this might take some time to
+      complete, it can never result in an error. *)
 
   type key = Key.t
   (** The type for keys. *)