readPersistentStorage :: Storage -> AcidState PersistentStorageState
readPersistentStorage (Storage (persistent, _)) = persistent
readPersistentStorage :: Storage -> AcidState PersistentStorageState
readPersistentStorage (Storage (persistent, _)) = persistent
readPersistentStorage (Storage (persistent, _)) = persistent