git.iko.soy/Idris-dev
on master help sign in
javascript: optimize assignments
8529f87raichoo
src/IRTS/CodegenJavaScript.hs+3
compare with master
unifiedsplit
@@ -256,6 +256,9 @@ optimizeJS (JSApp (JSFunction [arg] (JSReturn ret)) [val])
256 ) field
256 ) field
257 ) (head $ jsSubst arg [idx] (optimizeJS val))
257 ) (head $ jsSubst arg [idx] (optimizeJS val))
258
258
259+optimizeJS (JSAssign lhs rhs) =
260+ JSAssign lhs (optimizeJS rhs)
261+
259optimizeJS (JSSeq seq) =
262optimizeJS (JSSeq seq) =
260 JSSeq (map optimizeJS seq)
263 JSSeq (map optimizeJS seq)
261
264