works

2022-10-06 14:29:57 -05:00
parent 281351371d
commit 3b09bb1c11
2 changed files with 4 additions and 7 deletions
--- a/human.ml
+++ b/human.ml
@ -34,12 +34,9 @@ module NVG = Graphv_webgl

 module Nav = struct
  open Lwt.Infix
-
-  module Maker =
-    Irmin_git.KV (Irmin_git.Mem) (Git.Mem.Sync (Irmin_git.Mem))
-
-  module S = Maker.Make (Irmin.Contents.String)
-  module Sync = Irmin.Sync.Make (S)
+  module G = Irmin_git.Mem
+  module KV = Irmin_git.KV (G) (Git.Mem.Sync (G))
+  module S = KV.Make (Irmin.Contents.String)

  type t = S.tree