Commits

Bryan O'Sullivan committed cd4d71b

Once more, with vigour! GHC 6.12 is now happy again

Comments (0)

Files changed (1)

Data/Aeson/Types/Internal.hs

 obj_rnf :: (NFData k, NFData v) => Map k v -> ()
 #if MIN_VERSION_containers(0,4,2)
 obj_rnf = rnf
+#elif MIN_VERSION_containers(0,4,0)
+obj_rnf = M.foldlWithKey' (\_ k v -> rnf k `seq` rnf v) ()
 #else
-obj_rnf = M.foldlWithKey' (\_ k v -> rnf k `seq` rnf v) ()
+obj_rnf = rnf . M.toList
 #endif
 
 instance IsString Value where