javascript: added string equality
commit78521b6f5c01aa78832ac18f69a3afbee6f79b33
authorraichoo <raichoo@googlemail.com>
dateSat 12 Jan 2013, 00:40 (14 years ago)
parentcc883a4
src/IRTS/CodegenJavaScript.hs+2
@@ -278,6 +278,8 @@ translateExpression _ (SOp op vars)
278278
279279 | LStrConcat <- op
280280 , (lhs:rhs:_) <- vars = translateBinaryOp "+" lhs rhs
281+ | LStrEq <- op
282+ , (lhs:rhs:_) <- vars = translateBinaryOp "=" lhs rhs
281283
282284 | LIntStr <- op
283285 , (arg:_) <- vars = "String(" ++ translateVariableName arg ++ ");"