javascript: added StrCons primitive
commit22ce6bfdc38431a86ec58991648b6533fd3616d3
authorraichoo <raichoo@googlemail.com>
dateMon 14 Jan 2013, 23:20 (14 years ago)
parent0cea6e6
src/IRTS/CodegenJavaScript.hs+2
@@ -288,6 +288,8 @@ translateExpression _ (SOp op vars)
288288 , (lhs:rhs:_) <- vars = translateBinaryOp "+" lhs rhs
289289 | LStrEq <- op
290290 , (lhs:rhs:_) <- vars = translateBinaryOp "==" lhs rhs
291+ | LStrCons <- op
292+ , (lhs:rhs:_) <- vars = translateBinaryOp "+" lhs rhs
291293
292294 | LIntStr <- op
293295 , (arg:_) <- vars = "String(" ++ translateVariableName arg ++ ");"