voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

get lazy ByteString back to AnyStorage

This commit is contained in:
Sergey Ivanov 2023-03-08 19:08:52 +04:00
parent 38d6ff2c0c
commit cad30a09b5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-core/lib/HBS2/Storage.hs
View File

@ -4,7 +4,7 @@ module HBS2.Storage where
import HBS2.Hash import HBS2.Hash
import HBS2.Prelude.Plated import HBS2.Prelude.Plated
import Data.ByteString (ByteString) import Data.ByteString.Lazy qualified as LBS
import Data.Hashable hiding (Hashed) import Data.Hashable hiding (Hashed)
import Data.Kind import Data.Kind
import Lens.Micro.Platform import Lens.Micro.Platform
@ -63,9 +63,9 @@ calcChunks s1 s2 = fmap (over _1 fromIntegral . over _2 fromIntegral) chu
data AnyStorage = forall zu . (Block ByteString ~ ByteString, Storage zu HbSync ByteString IO) => AnyStorage zu data AnyStorage = forall zu . (Block LBS.ByteString ~ LBS.ByteString, Storage zu HbSync LBS.ByteString IO) => AnyStorage zu
instance (IsKey HbSync, Key HbSync ~ Hash HbSync, Block ByteString ~ ByteString) => Storage AnyStorage HbSync ByteString IO where instance (IsKey HbSync, Key HbSync ~ Hash HbSync, Block LBS.ByteString ~ LBS.ByteString) => Storage AnyStorage HbSync LBS.ByteString IO where
putBlock (AnyStorage s) = putBlock s putBlock (AnyStorage s) = putBlock s
enqueueBlock (AnyStorage s) = enqueueBlock s enqueueBlock (AnyStorage s) = enqueueBlock s