git.iko.soy/typeable/aeson
on master help sign in
YA attempt at slaying the containers/deepseq beast :-(
b30fffbBryan O'Sullivan
Data/Aeson/Types/Internal.hs+1−2
compare with master
unifiedsplit
@@ -227,8 +227,7 @@ obj_rnf :: (NFData k, NFData v) => Map k v -> ()
227#if MIN_VERSION_containers(0,4,2)
227#if MIN_VERSION_containers(0,4,2)
228obj_rnf = rnf
228obj_rnf = rnf
229#else
229#else
230−obj_rnf M.Tip = ()
230+obj_rnf = M.foldlWithKey' (\_ k v -> rnf k `seq` rnf v) ()
231−obj_rnf (M.Bin _ kx x l r) = rnf kx `seq` rnf x `seq` rnf l `seq` rnf r
232#endif
231#endif
233
232
234instance IsString Value where
233instance IsString Value where