@@ -321,6 +321,8 @@ translateExpression _ (SOp op vars)
321 , (lhs:rhs:_) <- vars = translateBinaryOp "==" lhs rhs
321 , (lhs:rhs:_) <- vars = translateBinaryOp "==" lhs rhs
322 | LStrLt <- op
322 | LStrLt <- op
323 , (lhs:rhs:_) <- vars = translateBinaryOp "<" lhs rhs
323 , (lhs:rhs:_) <- vars = translateBinaryOp "<" lhs rhs
325+ , (arg:_) <- vars = translateVariableName arg ++ ".length"
325 | LStrInt <- op
327 | LStrInt <- op
326 , (arg:_) <- vars = "parseInt(" ++ translateVariableName arg ++ ")"
328 , (arg:_) <- vars = "parseInt(" ++ translateVariableName arg ++ ")"