Assign unsigned right shift operator

src/Data/Syntax/Expression.hs

@@ -97,6 +97,7 @@ data Bitwise a
   | BXOr !a !a
   | LShift !a !a
   | RShift !a !a
+  | UnsignedRShift !a !a
   | Complement a
   deriving (Diffable, Eq, Foldable, Functor, GAlign, Generic1, Mergeable, Ord, Show, Traversable)
 

src/Language/TypeScript/Assignment.hs

@@ -769,6 +769,7 @@ binaryExpression = makeTerm' <$> symbol BinaryExpression <*> children (infixTerm
   , (inj .) . invert Expression.Equal     <$ (symbol AnonBangEqual <|> symbol AnonBangEqualEqual)
   , (inj .) . Expression.LShift           <$ symbol AnonLAngleLAngle
   , (inj .) . Expression.RShift           <$ symbol AnonRAngleRAngle
+  , (inj .) . Expression.UnsignedRShift   <$ symbol AnonRAngleRAngleRAngle
   , (inj .) . Expression.LessThan         <$ symbol AnonLAngle
   , (inj .) . Expression.GreaterThan      <$ symbol AnonRAngle
   , (inj .) . Expression.LessThanEqual    <$ symbol AnonLAngleEqual