yea bitches

bin/lumpstore.ml

@@ -0,0 +1,19 @@
+module Lump : sig
+  include Irmin.Type.S
+  val v : string -> t
+  val timestamp : t -> int
+end = struct
+  type t = { names : string list; value : string }
+  let compare x y = compare x.names y.names
+  let v names value = { names ; value }
+  let names t = t.names
+  let pp ppf { names; message } = Fmt.pf ppf "%04d: %s" timestamp message
+  let t =
+    let open Irmin.Type in
+    record "entry" (fun t32 message ->
+        { timestamp = Int32.to_int t32; message })
+    |+ field "timestamp" int32 (fun t -> Int32.of_int t.timestamp)
+    |+ field "message" string (fun t -> t.message)
+    |> sealr
+  let t = Irmin.Type.like ~cli:(pp, of_string) ~compare t
+end