@@ -287,7 +287,7 @@ translateExpression _ (SOp op vars)
287 | LStrConcat <- op
287 | LStrConcat <- op
288 , (lhs:rhs:_) <- vars = translateBinaryOp "+" lhs rhs
288 , (lhs:rhs:_) <- vars = translateBinaryOp "+" lhs rhs
289 | LStrEq <- op
289 | LStrEq <- op
290− , (lhs:rhs:_) <- vars = translateBinaryOp "=" lhs rhs
290+ , (lhs:rhs:_) <- vars = translateBinaryOp "==" lhs rhs
292 | LIntStr <- op
292 | LIntStr <- op
293 , (arg:_) <- vars = "String(" ++ translateVariableName arg ++ ");"
293 , (arg:_) <- vars = "String(" ++ translateVariableName arg ++ ");"