YA attempt at slaying the containers/deepseq beast :-(
commitb30fffb0c30cb520716d7978e18127a00c0aa21b
authorBryan O'Sullivan <bos@serpentine.com>
dateWed 2 Nov 2011, 08:42 (15 years ago)
parentf2b6bfc
Data/Aeson/Types/Internal.hs+1−2
@@ -227,8 +227,7 @@ obj_rnf :: (NFData k, NFData v) => Map k v -> ()
227227#if MIN_VERSION_containers(0,4,2)
228228obj_rnf = rnf
229229#else
230−obj_rnf M.Tip = ()
231−obj_rnf (M.Bin _ kx x l r) = rnf kx `seq` rnf x `seq` rnf l `seq` rnf r
230+obj_rnf = M.foldlWithKey' (\_ k v -> rnf k `seq` rnf v) ()
232231#endif
233232
234233instance IsString Value where