-- Cache statistics

incCacheBytesTransf :: ImageCache -> Word64 -> IO ()
incCacheBytesTransf ic n = atomicModifyIORef' (icBytesTrans ic) (\b -> (b + n, ()))
incCacheBytesTransf :: ImageCache -> Word64 -> IO ()
incCacheBytesTransf ic n = atomicModifyIORef' (icBytesTrans ic) (\b -> (b + n, ()))
incCacheBytesTransf ic n = atomicModifyIORef' (icBytesTrans ic) (\b -> (b + n, ()))