@@ -23,6 +23,7 @@ import Data.Data
2323import Data.Traversable (traverse)
2424
2525import Language.PureScript.Comments
26+import Language.PureScript.Traversals
2627
2728-- |
2829-- Built-in unary operators
@@ -294,7 +295,7 @@ everywhereOnJSTopDownM f = f >=> go
294295 go (JSBinary op j1 j2) = JSBinary op <$> f' j1 <*> f' j2
295296 go (JSArrayLiteral js) = JSArrayLiteral <$> traverse f' js
296297 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
298299 go (JSAccessor prop j) = JSAccessor prop <$> f' j
299300 go (JSFunction name args j) = JSFunction name args <$> f' j
300301 go (JSApp j js) = JSApp <$> f' j <*> traverse f' js