git.iko.soy/Idris-dev
on master help sign in
javascript: optimize in conditions
8bef17draichoo
src/IRTS/CodegenJavaScript.hs+3
compare with master
unifiedsplit
@@ -267,6 +267,9 @@ optimizeJS (JSReturn js) =
267optimizeJS (JSAlloc name (Just js)) =
267optimizeJS (JSAlloc name (Just js)) =
268 JSAlloc name (Just $ optimizeJS js)
268 JSAlloc name (Just $ optimizeJS js)
269
269
270+optimizeJS (JSCond cases) =
271+ JSCond (map (second optimizeJS) cases)
272+
270optimizeJS js = js
273optimizeJS js = js
271
274
272optJS :: Int -> JS -> JS
275optJS :: Int -> JS -> JS