incCacheMemHits :: ImageCache -> IO ()
incCacheMemHits ic = atomicModifyIORef' (icMemHits ic) (\n -> (n + 1, ()))
incCacheMemHits :: ImageCache -> IO ()
incCacheMemHits ic = atomicModifyIORef' (icMemHits ic) (\n -> (n + 1, ()))
incCacheMemHits ic = atomicModifyIORef' (icMemHits ic) (\n -> (n + 1, ()))