Catch correct exception

Signed-off-by: Rudi Grinberg <[email protected]>
ocaml · Apr 8, 2019 · 48fbbbd · 48fbbbd
1 parent d719da5
commit 48fbbbd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/file_tree.ml b/src/file_tree.ml
@@ -185,7 +185,7 @@ type readdir =
 
 let readdir path =
   match Path.readdir_unsorted path with
-  | exception (Unix.Unix_error (error, _, _)) ->
+  | exception (Sys_error msg) ->
     Errors.warn Loc.none
       "Unable to read directory %a@. Ignoring. \
        Remove this message by ignoring by adding:@.\
@@ -195,7 +195,7 @@ let readdir path =
       Path.pp path
       (Path.basename path)
       Path.pp (Path.relative (Path.parent_exn path) "dune")
-      (Unix.error_message error);
+      msg;
     Error error
   | unsorted_contents ->
     let files, dirs =