@@ -23,6 +23,7 @@ import Data.Data
23import Data.Traversable (traverse)
23import Data.Traversable (traverse)
25import Language.PureScript.Comments
25import Language.PureScript.Comments
26+import Language.PureScript.Traversals
28-- Built-in unary operators
29-- Built-in unary operators
@@ -294,7 +295,7 @@ everywhereOnJSTopDownM f = f >=> go
294 go (JSBinary op j1 j2) = JSBinary op <$> f' j1 <*> f' j2
295 go (JSBinary op j1 j2) = JSBinary op <$> f' j1 <*> f' j2
295 go (JSArrayLiteral js) = JSArrayLiteral <$> traverse f' js
296 go (JSArrayLiteral js) = JSArrayLiteral <$> traverse f' js
296 go (JSIndexer j1 j2) = JSIndexer <$> f' j1 <*> f' j2
297 go (JSIndexer j1 j2) = JSIndexer <$> f' j1 <*> f' j2
297− go (JSObjectLiteral js) = JSObjectLiteral <$> traverse (traverse f') js
298+ go (JSObjectLiteral js) = JSObjectLiteral <$> traverse (sndM f') js
298 go (JSAccessor prop j) = JSAccessor prop <$> f' j
299 go (JSAccessor prop j) = JSAccessor prop <$> f' j
299 go (JSFunction name args j) = JSFunction name args <$> f' j
300 go (JSFunction name args j) = JSFunction name args <$> f' j
300 go (JSApp j js) = JSApp <$> f' j <*> traverse f' js
301 go (JSApp j js) = JSApp <$> f' j <*> traverse f' js