git.iko.soy/Idris-dev
on master help sign in
javascript: satisfy hlint
482a723raichoo
src/IRTS/CodegenJavaScript.hs+1−1
compare with master
unifiedsplit
@@ -273,7 +273,7 @@ translateExpression _ (SOp op vars)
273 | LSHR <- op
273 | LSHR <- op
274 , (lhs:rhs:_) <- vars = translateBinaryOp ">>" rhs lhs
274 , (lhs:rhs:_) <- vars = translateBinaryOp ">>" rhs lhs
275 | LCompl <- op
275 | LCompl <- op
276− , (arg:_) <- vars = "~" ++ translateVariableName arg
276+ , (arg:_) <- vars = '~' : translateVariableName arg
277
277
278 | LBPlus <- op
278 | LBPlus <- op
279 , (lhs:rhs:_) <- vars = translateBinaryOp ".add(" lhs rhs ++ ")"
279 , (lhs:rhs:_) <- vars = translateBinaryOp ".add(" lhs rhs ++ ")"