Fix remaining syntax tests manually

Author: cknitt

tests/syntax_tests/data/parsing/errors/other/breadcrumbs170.res

@@ -1,5 +1,5 @@
 // it should report an error on the `}` on line 9
-let l = Some(list{1, 2, 3}) |> Obj.magic
+let l = Some(list{1, 2, 3})->Obj.magic
 module M = {
   switch l {
   | None => list{}

tests/syntax_tests/data/parsing/errors/other/expected/breadcrumbs170.res.txt

@@ -10,7 +10,7 @@
 
   I'm not sure what to parse here when looking at "}".
 
-let l = Obj.magic (Some [1; 2; 3])
+let l = (Some [1; 2; 3]) -> Obj.magic
 module M = struct ;;match l with | None -> [] | Some l -> l#prop end
 ;;from
 ;;now

tests/syntax_tests/data/parsing/grammar/expressions/binary.res

@@ -14,16 +14,16 @@ node :=
     node 
   }
 
-let x = z |> switch z {| _ => false} 
-let x = z |> @attr switch z {| _ => false} 
-let x = z |> assert(z)
-let x = z |> @attr assert(z)
-let x = z |> try sideEffect() catch { | _ => f() }
-let x = z |> @attr try sideEffect() catch { | _ => f() }
-let x = z |> for i in 0 to 10 { () }
-let x = z |> @attr for i in 0 to 10 { () }
-let x = z |> while condition { () }
-let x = z |> @attr while condition { () }
+let x = z->(switch z {| _ => false})
+let x = z->(@attr switch z {| _ => false} )
+let x = z->(assert(z))
+let x = z->(@attr assert(z))
+let x = z->(try sideEffect() catch { | _ => f() })
+let x = z->(@attr try sideEffect() catch { | _ => f() })
+let x = z->(for i in 0 to 10 { () })
+let x = z->(@attr for i in 0 to 10 { () })
+let x = z->(while condition { () })
+let x = z->(@attr while condition { () })
 
 let x = a + -1 + -2
 let x = a + @attr -1 + @attr -2

tests/syntax_tests/data/parsing/grammar/expressions/bracedOrRecord.res

@@ -17,7 +17,7 @@ let e = {-a}
 let e = {a + b}
 // ternary
 let e = {a ? true : false}
-let e = {a |> computation ? true : false}
+let e = {a->computation ? true : false}
 // primary expr
 let e = {a[0]}
 let e = {f(b)}
@@ -26,11 +26,11 @@ let e = {arr[x] = 20}
 
 // es6 arrow
 let e = {
-  x => x + 1 |> doStuff(config)
+  x => x + 1->doStuff(config)
 }
 
 let e = {
-  (x => x + 1) |> doStuff(config)
+  (x => x + 1)->doStuff(config)
 }
 
 let e = {
@@ -39,7 +39,7 @@ let e = {
 
 
 let e = {
-  (x => x + 1) |> sideEffect
+  (x => x + 1)->sideEffect
   logToAnalytics(Shady.ml)
 }
 

tests/syntax_tests/data/parsing/grammar/expressions/expected/binary.res.txt

@@ -1,16 +1,16 @@
 ;;node := (if newBalance === 2 then avl -> (rotateRight node) else node)
 ;;node := ((if newBalance === 2 then avl -> (rotateRight node) else node)
     [@attr ])
-let x = (match z with | _ -> false) z
-let x = ((match z with | _ -> false)[@attr ]) z
-let x = (assert z) z
-let x = ((assert z)[@attr ]) z
-let x = (try sideEffect () with | _ -> f ()) z
-let x = ((try sideEffect () with | _ -> f ())[@attr ]) z
-let x = for i = 0 to 10 do () done z
-let x = ((for i = 0 to 10 do () done)[@attr ]) z
-let x = while condition do () done z
-let x = ((while condition do () done)[@attr ]) z
+let x = z -> (match z with | _ -> false)
+let x = z -> ((match z with | _ -> false)[@attr ])
+let x = z -> (assert z)
+let x = z -> ((assert z)[@attr ])
+let x = z -> (try sideEffect () with | _ -> f ())
+let x = z -> ((try sideEffect () with | _ -> f ())[@attr ])
+let x = z -> for i = 0 to 10 do () done
+let x = z -> ((for i = 0 to 10 do () done)[@attr ])
+let x = z -> while condition do () done
+let x = z -> ((while condition do () done)[@attr ])
 let x = (a + (-1)) + (-2)
 let x = (a + (((-1))[@attr ])) + (((-2))[@attr ])
 let x = (a % a) == 0

tests/syntax_tests/data/parsing/grammar/expressions/expected/bracedOrRecord.res.txt

@@ -10,17 +10,17 @@ let e = ((a; b ())[@res.braces ])
 let e = ((- a)[@res.braces ])
 let e = ((a + b)[@res.braces ])
 let e = ((if a then true else false)[@res.braces ][@res.ternary ])
-let e = ((if computation a then true else false)
+let e = ((if a -> computation then true else false)
   [@res.braces ][@res.ternary ])
 let e = ((a.(0))[@res.braces ])
 let e = ((f b)[@res.braces ])
 let e = (((a.b).c)[@res.braces ])
 let e = ((arr.(x) <- 20)[@res.braces ])
-let e = ((fun [arity:1]x -> doStuff config (x + 1))[@res.braces ])
-let e = ((doStuff config (fun [arity:1]x -> x + 1))[@res.braces ])
+let e = ((fun [arity:1]x -> x + (1 -> (doStuff config)))[@res.braces ])
+let e = (((fun [arity:1]x -> x + 1) -> (doStuff config))[@res.braces ])
 let e = ((if fun [arity:1]x -> x + 1 then true else false)
   [@res.braces ][@res.ternary ])
-let e = ((sideEffect (fun [arity:1]x -> x + 1); logToAnalytics Shady.ml)
+let e = (((fun [arity:1]x -> x + 1) -> sideEffect; logToAnalytics Shady.ml)
   [@res.braces ])
 let f = ((fun [arity:1]event -> (event.target).value)[@res.braces ])
 let f = ((fun [arity:1]event -> ((event.target).value : string))

tests/syntax_tests/data/parsing/grammar/expressions/expected/jsx.res.txt

@@ -289,15 +289,15 @@ let _ = <div callback=((reduce (fun [arity:1]() -> not state))
   [@res.braces ]) />
 let _ =
   <button ?id className=((Cn.make [|{js|button|js};{js|is-fullwidth|js}|])
-  [@res.braces ]) onClick>((ste {js|Submit|js})[@res.braces ])</button>
+  [@res.braces ]) onClick>(({js|Submit|js} -> ste)[@res.braces ])</button>
 let _ =
   <button ?id className=((Cn.make [{js|button|js}; {js|is-fullwidth|js}])
-  [@res.braces ]) onClick>((ste {js|Submit|js})[@res.braces ])</button>
+  [@res.braces ]) onClick>(({js|Submit|js} -> ste)[@res.braces ])</button>
 let _ =
   <button ?id className=((Cn.make ({js|button|js}, {js|is-fullwidth|js}))
-  [@res.braces ]) onClick>((ste {js|Submit|js})[@res.braces ])</button>
+  [@res.braces ]) onClick>(({js|Submit|js} -> ste)[@res.braces ])</button>
 let _ = <button ?id className=((Cn.make { a = b })
-  [@res.braces ]) onClick>((ste {js|Submit|js})[@res.braces ])</button>
+  [@res.braces ]) onClick>(({js|Submit|js} -> ste)[@res.braces ])</button>
 let _ = <X y=((z -> (Belt.Option.getWithDefault {js||js}))[@res.braces ]) />
 let _ = <div style=((getStyle ())
   [@res.braces ])>((ReasonReact.string {js|BugTest|js})[@res.braces ])</div>
@@ -313,16 +313,19 @@ let _ =
                                                 <Image resizeMode=Contain style=(
                                                   styles#backgroundImage) uri />)
   [@res.braces ])</View>
-;;<div>((ReasonReact.array
-           (Array.of_list
-              (List.map
-                 (fun [arity:1]possibleGradeValue ->
-                    <option key=((string_of_int possibleGradeValue)
-                    [@res.braces ]) value=((string_of_int possibleGradeValue)
-                    [@res.braces ])>((str (string_of_int possibleGradeValue))
-                    [@res.braces ])</option>)
-                 (List.filter (fun [arity:1]g -> g <= state.maxGrade)
-                    possibleGradeValues))))[@res.braces ])</div>
+;;<div>(((((possibleGradeValues ->
+              (List.filter (fun [arity:1]g -> g <= state.maxGrade)))
+             ->
+             (List.map
+                (fun [arity:1]possibleGradeValue ->
+                   <option key=((possibleGradeValue -> string_of_int)
+                   [@res.braces ]) value=((possibleGradeValue ->
+                                             string_of_int)
+                   [@res.braces ])>(((possibleGradeValue -> string_of_int) ->
+                                       str)
+                   [@res.braces ])</option>)))
+            -> Array.of_list)
+           -> ReasonReact.array)[@res.braces ])</div>
 ;;<div>((Js.log (a <= 10))[@res.braces ])</div>
 ;;<div><div>((Js.log (a <= 10))[@res.braces ])</div></div>
 ;;<div><div onClick=((fun [arity:1]_ -> Js.log (a <= 10))

tests/syntax_tests/data/parsing/grammar/expressions/expected/underscoreApply.res.txt

@@ -6,15 +6,19 @@ let l =
 let x [arity:1]__x = List.length __x
 let nested [arity:1]x [arity:1]__x = List.length __x
 let incr [arity:1]~v  = v + 1
-let l1 = List.length (List.map (fun [arity:1]__x -> incr ~v:__x) [1; 2; 3])
-let l2 = List.length (List.map (fun [arity:1]__x -> incr ~v:__x) [1; 2; 3])
+let l1 =
+  ([1; 2; 3] -> (List.map (fun [arity:1]__x -> incr ~v:__x))) -> List.length
+let l2 =
+  ([1; 2; 3] -> (List.map (fun [arity:1]__x -> incr ~v:__x))) -> List.length
 let optParam [arity:2]?v  () = ((if v == None then 0 else 1)[@res.ternary ])
 let l1 =
-  List.length
-    (List.map (fun [arity:1]__x -> optParam ?v:__x ()) [Some 1; None; Some 2])
+  ([Some 1; None; Some 2] ->
+     (List.map (fun [arity:1]__x -> optParam ?v:__x ())))
+    -> List.length
 let l2 =
-  List.length
-    (List.map (fun [arity:1]__x -> optParam ?v:__x ()) [Some 1; None; Some 2])
+  ([Some 1; None; Some 2] ->
+     (List.map (fun [arity:1]__x -> optParam ?v:__x ())))
+    -> List.length
 ;;fun [arity:1]__x ->
     underscoreWithComments (fun [arity:1]x -> ((something ())[@res.braces ]))
       __x

tests/syntax_tests/data/parsing/grammar/expressions/jsx.res

@@ -443,19 +443,19 @@ let _ = <Animated initialValue=0.0 value>
 let _ = <div callback={reduce(() => !state)} />
 
 let _ = <button ?id className={Cn.make(["button", "is-fullwidth"])} onClick>
-  {"Submit" |> ste}
+  {"Submit"->ste}
 </button>
 
 let _ = <button ?id className={Cn.make(list{"button", "is-fullwidth"})} onClick>
-  {"Submit" |> ste}
+  {"Submit"->ste}
 </button>
 
 let _ = <button ?id className={Cn.make(("button", "is-fullwidth"))} onClick>
-  {"Submit" |> ste}
+  {"Submit"->ste}
 </button>
 
 let _ = <button ?id className={Cn.make({a: b})} onClick>
-  {"Submit" |> ste}
+  {"Submit"->ste}
 </button>
 
 let _ = <X y={z->Belt.Option.getWithDefault("")} />
@@ -483,16 +483,16 @@ let _ = <View style=styles["backgroundImageWrapper"]>
 
 <div>
   {possibleGradeValues
-  |> List.filter(g => g <= state.maxGrade)
-  |> List.map(possibleGradeValue =>
+  ->List.filter(g => g <= state.maxGrade)
+  ->List.map(possibleGradeValue =>
       <option
-        key={possibleGradeValue |> string_of_int}
-        value={possibleGradeValue |> string_of_int}>
-        {possibleGradeValue |> string_of_int |> str}
+        key={possibleGradeValue->string_of_int}
+        value={possibleGradeValue->string_of_int}>
+        {possibleGradeValue->string_of_int->str}
       </option>
     )
-  |> Array.of_list
-  |> ReasonReact.array}
+  ->Array.of_list
+  ->ReasonReact.array}
 </div>;
 
 // https://github.com/rescript-lang/syntax/issues/113

tests/syntax_tests/data/parsing/grammar/expressions/underscoreApply.res

@@ -8,17 +8,17 @@ let nested = x => List.length(_)
 
 let incr = (~v) => v+1
 
-let l1 = list{1, 2, 3} |> List.map(incr(~v=_)) |> List.length
+let l1 = list{1, 2, 3}->List.map(incr(~v=_))->List.length
 
-let l2 = list{1, 2, 3} |>List.map(incr(~v=_)) |> List.length
+let l2 = list{1, 2, 3}->List.map(incr(~v=_))->List.length
 
 let optParam = (~v=?, ()) => v == None ? 0 : 1
 
 let l1 =
-  list{Some(1), None, Some(2)} |> List.map(optParam(~v=?_, ())) |> List.length
+  list{Some(1), None, Some(2)}->List.map(optParam(~v=?_, ()))->List.length
 
 let l2 =
-  list{Some(1), None, Some(2)} |> List.map(optParam(~v=?_, ())) |> List.length
+  list{Some(1), None, Some(2)}->List.map(optParam(~v=?_, ()))->List.length
 
 underscoreWithComments(
   // Comment 1

tests/syntax_tests/data/parsing/grammar/pattern/constant.res

@@ -53,10 +53,10 @@ for ((i as x) in 0 to 10) { () }
 
 switch listPatterns {
 | list{(true, pattern), ...patterns} =>
-  let patterns = patterns |> List.map(filterSpread) |> List.rev
+  let patterns = patterns->List.map(filterSpread)->List.rev
   makeListPattern(loc, patterns, Some(pattern))
 | patterns =>
-  let patterns = patterns |> List.map(filterSpread) |> List.rev
+  let patterns = patterns->List.map(filterSpread)->List.rev
   makeListPattern(loc, patterns, None)
 }
 

tests/syntax_tests/data/parsing/grammar/pattern/expected/constant.res.txt

@@ -42,10 +42,10 @@ let f [arity:1](1 : int) = ()
 ;;for i as x = 0 to 10 do () done
 ;;match listPatterns with
   | (true, pattern)::patterns ->
-      let patterns = List.rev (List.map filterSpread patterns) in
+      let patterns = (patterns -> (List.map filterSpread)) -> List.rev in
       makeListPattern loc patterns (Some pattern)
   | patterns ->
-      let patterns = List.rev (List.map filterSpread patterns) in
+      let patterns = (patterns -> (List.map filterSpread)) -> List.rev in
       makeListPattern loc patterns None
 let _0 = 0x9A
 let print [arity:2]ppf i =

tests/syntax_tests/data/parsing/recovery/expression/expected/list.res.txt

@@ -37,7 +37,7 @@ let flags =
                 ((Belt.Array.concatMany)[@res.spread ]) [|[|x|];(loop rest)|]
             | [||] -> [||])
           [@res.braces ]) in
-        String.concat {js| |js} (loop parts))
+        (loop parts) -> (String.concat {js| |js}))
       [@res.braces ])
     else flags)
   [@res.ternary ])

tests/syntax_tests/data/parsing/recovery/expression/list.res

@@ -8,5 +8,5 @@ let flags = reasonFormat ? {
       | [] => []
     }
   };
-  loop(parts) |> String.concat(" ")
+  loop(parts)->String.concat(" ")
 } : flags