@@ -412,11 +412,11 @@ inlineJS (JSApp (JSIdent "__IDRRT__tailcall") [
412412inlineJS (JSApp (JSFunction [arg] (JSReturn ret)) [val])
413413 | JSNew con [tag, vals] <- ret
414414 , opt <- inlineJS val =
415− JSNew con [tag, jsSubst (JSIdent arg) opt vals]
415+ inlineJS $ JSNew con [tag, jsSubst (JSIdent arg) opt vals]
416416
417417 | JSNew con [JSFunction [] (JSReturn (JSApp fun vars))] <- ret
418418 , opt <- inlineJS val =
419− JSNew con [JSFunction [] (
419+ inlineJS $ JSNew con [JSFunction [] (
420420 JSReturn (
421421 JSApp (
422422 jsSubst (JSIdent arg) opt fun
@@ -428,7 +428,7 @@ inlineJS (JSApp (JSFunction [arg] (JSReturn ret)) [val])
428428
429429 | JSApp (JSProj obj field) args <- ret
430430 , opt <- inlineJS val =
431− JSApp (
431+ inlineJS $ JSApp (
432432 JSProj (jsSubst (JSIdent arg) opt obj) field
433433 ) (
434434 map (jsSubst (JSIdent arg) opt) args
@@ -436,19 +436,19 @@ inlineJS (JSApp (JSFunction [arg] (JSReturn ret)) [val])
436436
437437 | JSIndex (JSProj obj field) idx <- ret
438438 , opt <- inlineJS val =
439− JSIndex (JSProj (
439+ inlineJS $ JSIndex (JSProj (
440440 jsSubst (JSIdent arg) opt obj
441441 ) field
442442 ) (jsSubst (JSIdent arg) opt idx)
443443
444444 | JSOp op lhs rhs <- ret
445445 , opt <- inlineJS val =
446− JSOp op (jsSubst (JSIdent arg) opt lhs) $
446+ inlineJS $ JSOp op (jsSubst (JSIdent arg) opt lhs) $
447447 (jsSubst (JSIdent arg) opt rhs)
448448
449449 | JSApp (JSIdent fun) args <- ret
450450 , opt <- inlineJS val =
451− JSApp (JSIdent fun) $ map (jsSubst (JSIdent arg) opt) args
451+ inlineJS $ JSApp (JSIdent fun) $ map (jsSubst (JSIdent arg) opt) args
452452
453453inlineJS (JSApp fun args) =
454454 JSApp (inlineJS fun) (map inlineJS args)