From 299e86defdc7ecad2115011b360f864d299aa085 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?David=20B=C3=BChler?= <david.buhler@cea.fr>
Date: Tue, 18 Jan 2022 09:17:19 +0100
Subject: [PATCH] [ptests] Fixes a compilation warning.
---
ptests/ptests.ml | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ptests/ptests.ml b/ptests/ptests.ml
index 143614b779b..f1cf536e081 100644
--- a/ptests/ptests.ml
+++ b/ptests/ptests.ml
@@ -708,7 +708,7 @@ let mk_symbolic_link =
symlink ~unlink:false ~to_dir ~link_dst ~link
else if String.(link_dst <> (Unix.readlink link)) then (* goes elsewhere *)
symlink ~unlink:true ~to_dir ~link_dst ~link
- else symlink_there link (* is already there *)
+ else symlink_there ~link (* is already there *)
in
match infos.st_kind with
| Unix.S_LNK
--
GitLab