Merge pull request #2249 from adatario/expose-dispatcher

mirage · May 25, 2023 · 0075198 · 0075198
2 parents 97a4ab1 + e558ff8
commit 0075198
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/src/irmin-pack/unix/store.ml b/src/irmin-pack/unix/store.ml
@@ -752,6 +752,10 @@ module Maker (Config : Conf.S) = struct
 
       let dict (repo : X.Repo.t) = repo.dict
 
+      module Dispatcher = Dispatcher
+
+      let dispatcher (repo : X.Repo.t) = repo.dispatcher
+
       module XKey = XKey
 
       let suffix_commit_mem repo key =

diff --git a/src/irmin-pack/unix/store_intf.ml b/src/irmin-pack/unix/store_intf.ml
@@ -311,6 +311,10 @@ module type S = sig
 
     val dict : repo -> Dict.t
 
+    module Dispatcher : Dispatcher.S
+
+    val dispatcher : repo -> Dispatcher.t
+
     module XKey : Pack_key.S with type hash = Schema.Hash.t
 
     val suffix_commit_mem : repo -> XKey.t -> bool