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