Commits

Bryan O'Sullivan committed 146f7bd

YA attempt at slaying the containers/deepseq beast :-(

Comments (0)

Files changed (1)

Data/Aeson/Types/Internal.hs

 #if MIN_VERSION_containers(0,4,2)
 obj_rnf = rnf
 #else
-obj_rnf M.Tip = ()
-obj_rnf (M.Bin _ kx x l r) = rnf kx `seq` rnf x `seq` rnf l `seq` rnf r
+obj_rnf = M.foldlWithKey' (\_ k v -> rnf k `seq` rnf v) ()
 #endif
 
 instance IsString Value where