@@ -21,11 +21,8 @@ import qualified Language.PureScript.Constants as C
2121-- | Apply a series of optimizer passes to simplified IL code
2222optimize :: MonadSupply m => AST -> AST -> m AST
2323optimize mn il = do
24− il' <- untilFixedPoint (inlineFnComposition . inlineUnsafeCoerce . inlineUnsafePartial . tidyUp . applyAll
25− [ inlineCommonValues
26− , inlineCommonOperators
27− ]) il
28− untilFixedPoint (return . tidyUp) . tco mn . inlineST
24+ il' <- untilFixedPoint (inlineFnComposition . inlineUnsafeCoerce . inlineUnsafePartial . tidyUp) il
25+ untilFixedPoint (return . inlineCommonValues . inlineCommonOperators . tidyUp) . tco mn . inlineST
2926 =<< untilFixedPoint (return . magicDoST)
3027 =<< untilFixedPoint (return . magicDoEff)
3128 =<< untilFixedPoint (return . magicDoEffect) il'