@@ -289,8 +289,8 @@ compileJS' indent (JSNum num)
289289compileJS' indent (JSAssign lhs rhs) =
290290 compileJS' indent lhs ++ " = " ++ compileJS' indent rhs
291291
292−compileJS' indent (JSAlloc name (Just val@(JSNew _ _))) =
293− "var " ++ name ++ " = " ++ compileJS' indent val ++ ";\n"
292+compileJS' 0 (JSAlloc name (Just val@(JSNew _ _))) =
293+ "var " ++ name ++ " = " ++ compileJS' 0 val ++ ";\n"
294294
295295compileJS' indent (JSAlloc name val) =
296296 "var " ++ name ++ maybe "" ((" = " ++) . compileJS' indent) val