diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-02-09 09:48:34 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-02-09 20:53:59 +0100 |
| commit | 3ab6a143f95dad46cee526b709a2687bb28e985b (patch) | |
| tree | 0fc3bb709ee9fbdf24d291cd4d68d0578ce06c80 /src/Erebos/Storage/Internal.hs | |
| parent | f6051eb3ebe2c50cdcde44abf6d071f0b5bdbb8f (diff) | |
Diffstat (limited to 'src/Erebos/Storage/Internal.hs')
| -rw-r--r-- | src/Erebos/Storage/Internal.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/Erebos/Storage/Internal.hs b/src/Erebos/Storage/Internal.hs index db211bb..70a69b4 100644 --- a/src/Erebos/Storage/Internal.hs +++ b/src/Erebos/Storage/Internal.hs @@ -15,7 +15,6 @@ module Erebos.Storage.Internal ( StorageBackend(..), Complete, Partial, - unsafeStoreRawBytes, ioLoadBytesFromStorage, Generation(..), @@ -26,7 +25,6 @@ module Erebos.Storage.Internal ( import Control.Arrow import Control.Concurrent import Control.DeepSeq -import Control.Exception import Control.Monad.Identity import Crypto.Hash @@ -275,12 +273,6 @@ instance StorageCompleteness Partial where returnLoadResult = id ioLoadBytes (Ref st dgst) = maybe (Left dgst) Right <$> ioLoadBytesFromStorage st dgst -unsafeStoreRawBytes :: Storage' c -> BL.ByteString -> IO (Ref' c) -unsafeStoreRawBytes st@Storage {..} raw = do - dgst <- evaluate $ force $ hashToRefDigest raw - backendStoreBytes stBackend dgst raw - return $ Ref st dgst - ioLoadBytesFromStorage :: Storage' c -> RefDigest -> IO (Maybe BL.ByteString) ioLoadBytesFromStorage Storage {..} dgst = backendLoadBytes stBackend dgst >>= \case |