readVolatileStorage :: Storage -> IO VolatileStorageState
readVolatileStorage (Storage (_, ref)) = readIORef ref
readVolatileStorage :: Storage -> IO VolatileStorageState
readVolatileStorage (Storage (_, ref)) = readIORef ref
readVolatileStorage (Storage (_, ref)) = readIORef ref