@@ -273,6 +273,9 @@ optimizeJS (JSAlloc name (Just js)) =
273optimizeJS (JSCond cases) =
273optimizeJS (JSCond cases) =
274 JSCond (map (second optimizeJS) cases)
274 JSCond (map (second optimizeJS) cases)
276+optimizeJS (JSObject fields) =
277+ JSObject (map (second optimizeJS) fields)
276optimizeJS js = js
279optimizeJS js = js
278optJS :: Int -> JS -> JS
281optJS :: Int -> JS -> JS