mismatching extra-files: sort list before comparing them (ocaml#3744)

rjbou · Mar 28, 2019 · ed9124b · ed9124b
1 parent f8bff70
commit ed9124b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/state/opamFileTools.ml b/src/state/opamFileTools.ml
@@ -845,7 +845,8 @@ let add_aux_files ?dir ~files_subdir_hashes opam =
           (OpamFilename.Dir.to_string dir);
         opam
       | Some oef, Some ef ->
-        if oef <> ef then
+        let sort = List.sort (fun (b, _) (b', _) -> compare b b') in
+        if sort oef <> sort ef then
           log "Mismatching extra-files at %s"
             (OpamFilename.Dir.to_string dir);
         opam