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,6 +75,18 @@ function bxor_bigint(a, b) {
   return a ^ b;
 }
 
+function lhs_shift(a, b) {
+  return (a << b);
+}
+
+function rhs_shift(a, b) {
+  return (a << b);
+}
+
+function unknown_shift(a, b) {
+  return (a << b);
+}
+
 let shl_bigint = (1n << 2n);
 
 let shr_bigint = (8n >> 2n);
@@ -114,6 +126,9 @@ export {
   shl_int,
   shr_int,
   lsr_int,
+  lhs_shift,
+  rhs_shift,
+  unknown_shift,
   shl_bigint,
   shr_bigint,
 }