|> instead of @@

Signed-off-by: Ambre Austen Suhamy <[email protected]>

Author: ElectreAAS

bin/rpc/rpc_common.ml

@@ -100,13 +100,13 @@ let prepare_targets targets =
 
 let warn_ignore_arguments lock_held_by =
   User_warning.emit
-    [ Pp.tag User_message.Style.Warning
-      @@ Pp.paragraphf
-           "Your build request is being forwarded to a running Dune instance%s. Note \
-            that certain command line arguments may be ignored."
-           (match lock_held_by with
-            | Dune_util.Global_lock.Lock_held_by.Unknown -> ""
-            | Pid_from_lockfile pid -> sprintf " (pid: %d)" pid)
+    [ Pp.paragraphf
+        "Your build request is being forwarded to a running Dune instance%s. Note that \
+         certain command line arguments may be ignored."
+        (match lock_held_by with
+         | Dune_util.Global_lock.Lock_held_by.Unknown -> ""
+         | Pid_from_lockfile pid -> sprintf " (pid: %d)" pid)
+      |> Pp.tag User_message.Style.Warning
     ]
 ;;