yea bitches

bin/lumppile.ml

@@ -0,0 +1,30 @@
+(* pile of lumps *)
+
+open Lwt.Infix
+
+module Git_store = Irmin_unix.Git.FS.KV(Irmin.Contents.String)
+
+let git_config = Irmin_git.config ~bare:true "./kommpile"
+let git_repo = Git_store.Repo.v git_config
+
+
+let beginning config =
+  Git_store.Repo.v config >>= Git_store.master
+
+let branch config name =
+    Git_store.Repo.v config >>= fun repo ->
+    Git_store.of_branch repo name
+
+
+let info message = Irmin_unix.info "%s" message
+
+
+let main =
+    Git_store.Repo.v git_config >>= Git_store.master >>= fun t ->
+    (* Set a/b/c to "Hello, Irmin!" *)
+    Git_store.set_exn t ["a"; "b"; "c"] "Hello, Irmin!" ~info:(info "my first commit") >>= fun () ->
+    (* Get a/b/c *)
+    Git_store.get t ["a"; "b"; "c"] >|= fun s ->
+    assert (s = "Hello, Irmin!")
+
+let () = Lwt_main.run main