suggested changes

mirage · Nov 8, 2022 · e208303 · e208303
1 parent 280c826
commit e208303
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/src/irmin-pack/unix/io.ml b/src/irmin-pack/unix/io.ml
@@ -296,8 +296,13 @@ module Unix = struct
       let dirfd =
         Unix.openfile path Unix.[ O_RDONLY; O_SYNC; O_RSYNC ] default_open_perm
       in
-      Unix.fsync dirfd;
+      let fsync_result =
+        try
+          Unix.fsync dirfd;
+          Ok ()
+        with Unix.Unix_error (e, s1, s2) -> Error (`Io_misc (e, s1, s2))
+      in
       Unix.close dirfd;
-      Ok ()
+      fsync_result
     with Unix.Unix_error (e, s1, s2) -> Error (`Io_misc (e, s1, s2))
 end
diff --git a/src/irmin-pack/unix/s.ml b/src/irmin-pack/unix/s.ml
@@ -58,7 +58,7 @@ module type S = sig
       the existing one, containing only one commit, specified by the [key]. Note
       that this operation is blocking.
 
-      If [repo] is opened with the flag [use_fsync] set, then [path] is flushed
+      If [repo] is opened with the flag [use_fsync] set, then [path] is fsynced
       to disk.
 
       It requires that the files existing on disk when the operation is