irmin-pack: close repo after integrity check

mirage · Jan 5, 2023 · 10da10e · 10da10e
1 parent db584a4
commit 10da10e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/irmin-pack/unix/checks.ml b/src/irmin-pack/unix/checks.ml
@@ -200,9 +200,10 @@ module Make (Store : Store) = struct
                 | Error (`Msg m) -> Fmt.kstr Lwt.fail_with "Invalid hash %S" m)
               heads
       in
-      let+ result =
+      let* result =
         Store.integrity_check ~ppf:Format.err_formatter ~auto_repair ~heads repo
       in
+      let+ () = Store.Repo.close repo in
       handle_result ?name:None result
 
     let heads =