@@ -295,6 +295,9 @@ inlineJS (JSApp (JSFunction [arg] (JSReturn ret)) [val])
295inlineJS (JSApp fun args) =
295inlineJS (JSApp fun args) =
296 JSApp (inlineJS fun) (map inlineJS args)
296 JSApp (inlineJS fun) (map inlineJS args)
298+inlineJS (JSNew con args) =
299+ JSNew con $ map inlineJS args
298inlineJS (JSAssign lhs rhs) =
301inlineJS (JSAssign lhs rhs) =
299 JSAssign lhs (inlineJS rhs)
302 JSAssign lhs (inlineJS rhs)