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

wip

This commit is contained in:
voidlizard 2024-11-19 13:15:16 +03:00
parent 3acb1aaabe
commit 8a8108e2ef
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-git3/app/Main.hs
View File

@ -17,7 +17,7 @@ import Data.Config.Suckless.Script
import Codec.Compression.Zstd qualified as Z import Codec.Compression.Zstd qualified as Z
import Codec.Compression.GZip qualified as GZ1 import Codec.Compression.GZip as GZ1
import Codec.Compression.Zlib.Internal qualified as GZ import Codec.Compression.Zlib.Internal qualified as GZ
import Data.Maybe import Data.Maybe
@ -90,6 +90,7 @@ gitReadTree what =
GitTreeEntryView v -> do GitTreeEntryView v -> do
Just v Just v
_ -> Nothing _ -> Nothing
<&> \s -> HM.elems (HM.fromList [ (gitEntryHash e, e) | e <- s])
gitReadObjectThrow :: (Pretty h, MonadIO m) => GitObjectType -> h -> m ByteString gitReadObjectThrow :: (Pretty h, MonadIO m) => GitObjectType -> h -> m ByteString
gitReadObjectThrow t h = do gitReadObjectThrow t h = do
@ -247,7 +248,8 @@ theDict = do
go outh =<< next go outh =<< next
go _ GZ.CompressStreamEnd = return () go _ GZ.CompressStreamEnd = return ()
let compressStream = GZ.compressIO GZ.gzipFormat GZ.defaultCompressParams let params = defaultCompressParams { compressLevel = compressionLevel 7 }
let compressStream = GZ.compressIO GZ.gzipFormat params
liftIO $ go stdout compressStream liftIO $ go stdout compressStream