Skip to content
Snippets Groups Projects
Commit 299e86de authored by David Bühler's avatar David Bühler
Browse files

[ptests] Fixes a compilation warning.

parent aea6f42f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
ptests/ptests.ml
+ 1
− 1
View file @ 299e86de
...@@ -708,7 +708,7 @@ let mk_symbolic_link = ...@@ -708,7 +708,7 @@ let mk_symbolic_link =
symlink ~unlink:false ~to_dir ~link_dst ~link symlink ~unlink:false ~to_dir ~link_dst ~link
else if String.(link_dst <> (Unix.readlink link)) then (* goes elsewhere *) else if String.(link_dst <> (Unix.readlink link)) then (* goes elsewhere *)
symlink ~unlink:true ~to_dir ~link_dst ~link symlink ~unlink:true ~to_dir ~link_dst ~link
else symlink_there link (* is already there *) else symlink_there ~link (* is already there *)
in in
match infos.st_kind with match infos.st_kind with
| Unix.S_LNK | Unix.S_LNK
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment