@@ -14,23 +14,12 @@
1414-----------------------------------------------------------------------------
1515
1616module Language.PureScript.Optimizer.Unused (
17− removeUnusedVariables,
1817 removeCodeAfterReturnStatements
1918) where
2019
2120import Language.PureScript.CodeGen.JS.AST
2221import Language.PureScript.Optimizer.Common
2322
24−removeUnusedVariables :: JS -> JS
25−removeUnusedVariables = everywhereOnJS (removeFromBlock withBlock)
26− where
27− withBlock :: [JS] -> [JS]
28− withBlock sts = go sts sts
29− go :: [JS] -> [JS] -> [JS]
30− go _ [] = []
31− go sts (JSVariableIntroduction var _ : rest) | not (any (isUsed var) sts) = go sts rest
32− go sts (s : rest) = s : go sts rest
33−
3423removeCodeAfterReturnStatements :: JS -> JS
3524removeCodeAfterReturnStatements = everywhereOnJS (removeFromBlock go)
3625 where