Merge pull request #888 from samoht/irmin-unix-pack

irmin-unix: add support for the pack backend on the CLI

irmin-unix.opam

@@ -22,6 +22,7 @@ depends: [
   "irmin-git"     {>= "2.0.0"}
   "irmin-http"    {>= "2.0.0"}
   "irmin-fs"      {>= "2.0.0"}
+  "irmin-pack"    {>= "2.0.0"}
   "irmin-graphql"
   "git-unix"      {>= "1.11.4"}
   "digestif"      {>= "0.6.1"}

src/irmin-unix/dune

@@ -1,5 +1,6 @@
 (library
  (name        irmin_unix)
  (public_name irmin-unix)
- (libraries   irmin irmin-fs irmin-git irmin-http git-unix irmin-mem irmin-graphql
+ (libraries   irmin irmin-fs irmin-git irmin-http git-unix irmin-mem
+              irmin-graphql irmin-pack
               irmin-watcher yaml cmdliner logs.fmt logs.cli fmt.cli fmt.tty))

src/irmin-unix/resolver.ml

@@ -142,6 +142,14 @@ module Store = struct
 
   let git_mem (module C : Irmin.Contents.S) = v_git (module Xgit.Mem.KV (C))
 
+  module Inode_config = struct
+    let entries = 32
+
+    let stable_hash = 256
+  end
+
+  let pack = create (module Irmin_pack.Make (Inode_config))
+
   let all =
     ref
       [
@@ -151,6 +159,7 @@ module Store = struct
         ("mem", mem);
         ("http", fun c -> http (mem c));
         ("http.git", fun c -> http (git c));
+        ("pack", pack);
       ]
 
   let default = ref git