[WIP] Move to eio paths

mirage · Mar 6, 2024 · 2045385 · 2045385
1 parent de4781b
commit 2045385
Show file tree

Hide file tree

Showing 105 changed files with 1,928 additions and 1,676 deletions.
diff --git a/src/irmin-chunk/irmin_chunk.ml b/src/irmin-chunk/irmin_chunk.ml
@@ -184,7 +184,7 @@ struct
       aux l
   end
 
-  let v ~sw config =
+  let v ~sw ~fs config =
     let chunk_size = Conf.get config Conf.Key.chunk_size in
     let max_data = chunk_size - Chunk.size_of_data_header in
     let max_children =
@@ -197,7 +197,7 @@ struct
     [%log.debug
       "config: chunk-size=%d digest-size=%d max-data=%d max-children=%d"
         chunk_size H.hash_size max_data max_children];
-    let db = CA.v ~sw config in
+    let db = CA.v ~sw ~fs config in
     { chunking; db; chunk_size; max_children; max_data }
 
   let close _ = ()