Merge pull request #2467 from ocaml/uppercase_scanning

Capitalize progress message during file tree scanning
ocaml · Jul 29, 2019 · 13e9c32 · 13e9c32
2 parents 799524c + 0e4f084
commit 13e9c32
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/file_tree.ml b/src/file_tree.ml
@@ -215,7 +215,7 @@ let load ?(warn_when_seeing_jbuild_file=true) path ~ancestor_vcs =
     incr nb_path_visited;
     if !nb_path_visited mod 100 = 0 then
       Console.update_status_line
-        (Pp.verbatim (Printf.sprintf "scanned %i directories" !nb_path_visited));
+        (Pp.verbatim (Printf.sprintf "Scanned %i directories" !nb_path_visited));
     let+ { dirs; files } = readdir path in
     let project =
       if dir_status = Data_only then