[Haskell-cafe] "Flatten" JSON objects under toListOf

[Stuart Popejoy]

Hi,

I'd like to transform some JSON to "flatten" objects in a list to a 
single dimension. Say I have:

[{ "Name": "Stuart", "Dimensions": { "H": 71, "W": 170 } },
  { "Name": "Sam", "Dimensions": { "H": 72, "W": 180 } }]

How do I get it to just

[{ "Name": "Stuart", "W": 170 } },
  { "Name": "Sam", "W": 180 } }]

I've tried zipWith with various toListOf constructions to pick apart and 
rebuild a new JSON object. Is there a better way?

Thanks,
Stuart