Once more, with vigour! GHC 6.12 is now happy again
commit0e73ea94e67435140a96e8338bf72485e11f00a5
authorBryan O'Sullivan <bos@serpentine.com>
dateWed 2 Nov 2011, 09:09 (15 years ago)
parentb30fffb
Data/Aeson/Types/Internal.hs+3−1
@@ -226,8 +226,10 @@ instance NFData Value where
226226obj_rnf :: (NFData k, NFData v) => Map k v -> ()
227227#if MIN_VERSION_containers(0,4,2)
228228obj_rnf = rnf
229−#else
229+#elif MIN_VERSION_containers(0,4,0)
230230obj_rnf = M.foldlWithKey' (\_ k v -> rnf k `seq` rnf v) ()
231+#else
232+obj_rnf = rnf . M.toList
231233#endif
232234
233235instance IsString Value where