@@ -200,7 +200,7 @@ translateExpression (SApp True name vars) =
200 "new __IDRRT__.Tailcall("
200 "new __IDRRT__.Tailcall("
201 ++ "function(){\n"
201 ++ "function(){\n"
202 ++ "return " ++ translateFunctionCall name vars
202 ++ "return " ++ translateFunctionCall name vars
203− ++ ";\n});"
203+ ++ ";\n})"
205translateExpression (SOp op vars)
205translateExpression (SOp op vars)
206 | (LPlus _) <- op
206 | (LPlus _) <- op
@@ -356,10 +356,10 @@ translateExpression (SOp op vars)
356 ++ translateVariableName rhs
356 ++ translateVariableName rhs
358translateExpression (SError msg) =
358translateExpression (SError msg) =
359− "(function(){throw \'" ++ msg ++ "\';})();"
359+ "(function(){throw \'" ++ msg ++ "\';})()"
361translateExpression (SForeign _ _ "putStr" [(FString, var)]) =
361translateExpression (SForeign _ _ "putStr" [(FString, var)]) =
362− "__IDRRT__.print(" ++ translateVariableName var ++ ");"
362+ "__IDRRT__.print(" ++ translateVariableName var ++ ")"
364translateExpression (SForeign _ _ fun args)
364translateExpression (SForeign _ _ fun args)
365 | "." `isPrefixOf` fun, "[]=" `isSuffixOf` fun
365 | "." `isPrefixOf` fun, "[]=" `isSuffixOf` fun