git.iko.soy/Idris-dev
on master help sign in
Fix JS codegen for LWriteStr
db1dba2Edwin Brady
src/IRTS/CodegenJavaScript.hs+1−2
compare with master
unifiedsplit
@@ -679,8 +679,7 @@ jsOP _ reg op args = JSAssign (translateReg reg) jsOP'
679 jsOP'
679 jsOP'
680 | LNoOp <- op = translateReg (last args)
680 | LNoOp <- op = translateReg (last args)
681
681
682− | (LExternal ws) <- op,
682+ | LWriteStr <- op,
683− ws == sUN "prim__writeString",
684 (_:str:_) <- args = JSAssign (translateReg reg)
683 (_:str:_) <- args = JSAssign (translateReg reg)
685 (JSApp (JSIdent "i$putStr") [translateReg str])
684 (JSApp (JSIdent "i$putStr") [translateReg str])
686
685