Sort filepaths for reproducibility (#26)

pitag-ha · Jun 28, 2023 · 9a66b90 · 9a66b90
1 parent b0374c4
commit 9a66b90
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/file.ml b/lib/file.ml
@@ -35,7 +35,7 @@ let get_files ~extensions paths =
           (String.concat ", " extensions)
       in
       Error (`Msg msg)
-  | _ -> Ok files
+  | _ -> Ok (List.sort Fpath.compare files)
 
 let parse_impl sourcefile =
   let file = Fpath.to_string sourcefile in

diff --git a/lib/file.mli b/lib/file.mli
@@ -9,7 +9,7 @@ val filename : t -> string
 
 val get_files :
   extensions:string list -> Fpath.t list -> (t list, Rresult.R.msg) result
-(** [get_files ~extension dir] produces the list of all files with extension
+(** [get_files ~extension dir] produces sorted list of all files with extension
     [extension] inside [dir] *)
 
 val parse_impl : t -> Ppxlib.Parsetree.structure