e929327 · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

on golang help sign in

Remove inlineAppliedVars

e929327Brian McKenna12 years ago

src/Language/PureScript/CodeGen/JS/Optimizer.hs+1−2

compare with golang

unifiedsplit

@@ -79,8 +79,7 @@ optimize' js = do

79 , inlineOperator (C.prelude, (C.$)) $ \f x -> JSApp f [x]

80 , inlineOperator (C.prelude, (C.#)) $ \x f -> JSApp f [x]

81 , inlineOperator (C.preludeUnsafe, C.unsafeIndex) $ flip JSIndexer

82− , inlineCommonOperators

82+ , inlineCommonOperators ]) js

83− , inlineAppliedVars ]) js

85untilFixedPoint :: (Monad m, Eq a) => (a -> m a) -> a -> m a

84untilFixedPoint :: (Monad m, Eq a) => (a -> m a) -> a -> m a

86untilFixedPoint f = go

85untilFixedPoint f = go

src/Language/PureScript/CodeGen/JS/Optimizer/Inliner.hs−8

@@ -18,7 +18,6 @@ module Language.PureScript.CodeGen.JS.Optimizer.Inliner (

18 inlineValues,

19 inlineOperator,

20 inlineCommonOperators,

21− inlineAppliedVars,

22 inlineArrComposition,

21 inlineArrComposition,

23 etaConvert,

22 etaConvert,

24 unThunk,

23 unThunk,

@@ -241,13 +240,6 @@ inlineCommonOperators = applyAll $

241 go m acc (JSApp lhs [arg]) = go (m - 1) (arg : acc) lhs

240 go m acc (JSApp lhs [arg]) = go (m - 1) (arg : acc) lhs

242 go _ _ _ = Nothing

241 go _ _ _ = Nothing

243

242

244−inlineAppliedVars :: JS -> JS

245−inlineAppliedVars = everywhereOnJS convert

246− where

247− convert :: JS -> JS

248− convert (JSApp (JSFunction Nothing [a] (JSBlock [JSReturn b])) [JSVar x]) = replaceIdent a (JSVar x) b

249− convert other = other

250−

251-- (f <<< g $ x) = f (g x)

243-- (f <<< g $ x) = f (g x)

252-- (f <<< g) = \x -> f (g x)

244-- (f <<< g) = \x -> f (g x)

253inlineArrComposition :: (Applicative m, MonadSupply m) => JS -> m JS

245inlineArrComposition :: (Applicative m, MonadSupply m) => JS -> m JS