diff options
| author | Gaëtan Gilbert | 2019-11-21 16:46:11 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-11-21 16:46:11 +0100 |
| commit | c0f34539209842735ccb93f3c069632b7eee4d6c (patch) | |
| tree | 32cd948273f79a2c01ad27b4ed0244ea60d7e2f9 /lib/system.ml | |
| parent | b680b06b31c27751a7d551d95839aea38f7fbea1 (diff) | |
| parent | d016f69818b30b75d186fb14f440b93b0518fc66 (diff) | |
Merge PR #11010: [coq] Untabify the whole ML codebase.
Reviewed-by: SkySkimmer
Reviewed-by: herbelin
Diffstat (limited to 'lib/system.ml')
| -rw-r--r-- | lib/system.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/system.ml b/lib/system.ml index 8c333ec267..2d68fd2fdf 100644 --- a/lib/system.ml +++ b/lib/system.ml @@ -29,9 +29,9 @@ let all_subdirs ~unix_path:root = let rec traverse path rel = let f = function | FileDir (path,f) -> - let newrel = rel @ [f] in - add path newrel; - traverse path newrel + let newrel = rel @ [f] in + add path newrel; + traverse path newrel | _ -> () in process_directory f path in @@ -133,7 +133,7 @@ let find_file_in_path ?(warn=true) paths filename = root, filename else CErrors.user_err ~hdr:"System.find_file_in_path" - (hov 0 (str "Can't find file" ++ spc () ++ str filename)) + (hov 0 (str "Can't find file" ++ spc () ++ str filename)) else (* the name is considered to be the transcription as a relative physical name of a logical name, so we deal with it as a name @@ -141,8 +141,8 @@ let find_file_in_path ?(warn=true) paths filename = try where_in_path ~warn paths filename with Not_found -> CErrors.user_err ~hdr:"System.find_file_in_path" - (hov 0 (str "Can't find file" ++ spc () ++ str filename ++ spc () ++ - str "on loadpath")) + (hov 0 (str "Can't find file" ++ spc () ++ str filename ++ spc () ++ + str "on loadpath")) let is_in_path lpath filename = try ignore (where_in_path ~warn:false lpath filename); true |