fix

Author: cometkim

compiler/syntax/src/res_parsetree_viewer.ml

@@ -301,7 +301,7 @@ let is_binary_operator operator =
   match operator with
   | ":=" | "||" | "&&" | "==" | "===" | "<" | ">" | "!=" | "!==" | "<=" | ">="
   | "|>" | "+" | "+." | "-" | "-." | "++" | "*" | "*." | "/" | "/." | "**"
-  | "->" | "<>" | "%" | "^" | "<<" ->
+  | "->" | "<>" | "%" | "^" | "<<" | ">>" | ">>>" ->
     true
   | _ -> false
 

tests/tests/src/unified_ops_test.mjs

@@ -75,17 +75,17 @@ function bxor_bigint(a, b) {
   return a ^ b;
 }
 
-let shl_bigint = (1n << 2n);
+let bigintShiftLeft = (1n << 2n);
 
-let shr_bigint = (8n >> 2n);
+let bigintShiftRight = (8n >> 2n);
 
 let int = 3;
 
-let shl_int = 4;
+let intShiftLeft = 4;
 
-let shr_int = 2;
+let intShiftRight = 2;
 
-let lsr_int = 2147483647;
+let intShiftRightUnsigned = 2147483647;
 
 export {
   int,
@@ -111,10 +111,10 @@ export {
   pow_overflow,
   bxor_int,
   bxor_bigint,
-  shl_int,
-  shr_int,
-  lsr_int,
-  shl_bigint,
-  shr_bigint,
+  intShiftLeft,
+  intShiftRight,
+  intShiftRightUnsigned,
+  bigintShiftLeft,
+  bigintShiftRight,
 }
 /* No side effect */

tests/tests/src/unified_ops_test.res

@@ -30,13 +30,9 @@ let pow_overflow = 2147483647 ** 2
 let bxor_int = (a, b) => a ^ b
 let bxor_bigint = (a: bigint, b) => a ^ b
 
-let shl_int = 1 << 2
-let shr_int = 8 >> 2
-let lsr_int = -1 >>> 1
+let intShiftLeft = 1 << 2
+let intShiftRight = 8 >> 2
+let intShiftRightUnsigned = -2 >>> 1
 
-let lhs_shift = (a: int, b) => a << b
-let rhs_shift = (a, b: int) => a << b
-let unknown_shift = (a, b) => a << b
-
-let shl_bigint = 1n << 2n
-let shr_bigint = 8n >> 2n
+let bigintShiftLeft = 1n << 2n
+let bigintShiftRight = 8n >> 2n