Analysis tests: replace "|>" with "->"

Author: cknitt

tests/analysis_tests/tests-reanalyze/deadcode/expected/deadcode.txt

@@ -1216,7 +1216,7 @@
   addValueReference OptArg.res:14:4 --> OptArg.res:14:21
   addValueReference OptArg.res:14:4 --> OptArg.res:14:27
   DeadOptionalArgs.addReferences twoArgs called with optional argNames: argNamesMaybe: OptArg.res:16:7
-  addValueReference OptArg.res:16:12 --> OptArg.res:14:4
+  addValueReference OptArg.res:16:10 --> OptArg.res:14:4
   addValueReference OptArg.res:18:4 --> OptArg.res:18:17
   addValueReference OptArg.res:18:4 --> OptArg.res:18:14
   addValueReference OptArg.res:18:4 --> OptArg.res:18:24
@@ -2510,7 +2510,7 @@ File References
   Live Value +OptArg.+fourArgs: 1 references (OptArg.res:26:4) [0]
   Live Value +OptArg.+wrapOneArg: 1 references (OptArg.res:22:7) [0]
   Live Value +OptArg.+oneArg: 1 references (OptArg.res:20:4) [0]
-  Live Value +OptArg.+twoArgs: 1 references (OptArg.res:16:12) [0]
+  Live Value +OptArg.+twoArgs: 1 references (OptArg.res:16:10) [0]
   Live Value +OptArg.+threeArgs: 2 references (OptArg.res:11:7, OptArg.res:12:7) [0]
   Live Value +OptArg.+bar: 2 references (OptArg.res:7:7, OptArg.resi:2:0) [0]
   Live Value +OptArg.+foo: 1 references (OptArg.res:5:7) [0]

tests/analysis_tests/tests-reanalyze/deadcode/src/OptArg.res

@@ -13,7 +13,7 @@ Js.log(threeArgs(~a=4, 1))
 
 let twoArgs = (~a=1, ~b=2, c) => a + b + c
 
-Js.log(1 |> twoArgs)
+Js.log(1->twoArgs)
 
 let oneArg = (~a=1, ~z, b) => a + b
 

tests/analysis_tests/tests-reanalyze/deadcode/src/Uncurried.res

@@ -14,19 +14,19 @@ type u3 = (. int, string, int) => string
 let uncurried0 = (. ()) => ""
 
 @genType
-let uncurried1 = (. x) => x |> string_of_int
+let uncurried1 = (. x) => x -> string_of_int
 
 @genType
-let uncurried2 = (. x, y) => (x |> string_of_int) ++ y
+let uncurried2 = (. x, y) => (x -> string_of_int) ++ y
 
 @genType
-let uncurried3 = (. x, y, z) => (x |> string_of_int) ++ (y ++ (z |> string_of_int))
+let uncurried3 = (. x, y, z) => (x -> string_of_int) ++ (y ++ (z -> string_of_int))
 
 @genType
-let curried3 = (x, y, z) => (x |> string_of_int) ++ (y ++ (z |> string_of_int))
+let curried3 = (x, y, z) => (x -> string_of_int) ++ (y ++ (z -> string_of_int))
 
 @genType
-let callback = cb => cb() |> string_of_int
+let callback = cb => cb() -> string_of_int
 
 type auth = {login: unit => string}
 type authU = {loginU: (. unit) => string}

tests/analysis_tests/tests-reanalyze/deadcode/src/Unison.res

@@ -27,9 +27,9 @@ let rec toString = (~width, stack) =>
   switch stack {
   | Cons({break, doc}, stack) =>
     switch break {
-    | IfNeed => (fits(width, stack) ? "fits " : "no ") ++ (stack |> toString(~width=width - 1))
-    | Never => "never " ++ (doc ++ (stack |> toString(~width=width - 1)))
-    | Always => "always " ++ (doc ++ (stack |> toString(~width=width - 1)))
+    | IfNeed => (fits(width, stack) ? "fits " : "no ") ++ (stack -> toString(~width=width - 1))
+    | Never => "never " ++ (doc ++ (stack -> toString(~width=width - 1)))
+    | Always => "always " ++ (doc ++ (stack -> toString(~width=width - 1)))
     }
   | Empty => ""
   }

tests/analysis_tests/tests-reanalyze/deadcode/src/exception/TestYojson.res

@@ -4,7 +4,7 @@ let foo = x => Yojson.Basic.from_string(x)
 let bar = (str, json) =>
   switch {
     open Yojson.Basic.Util
-    json |> member(str)
+    member(str, json)
   } {
   | j => j
   | exception Yojson.Basic.Util.Type_error("a", d) when d == json => json