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

wip27

This commit is contained in:
voidlizard 2024-12-06 13:53:40 +03:00
parent 1f1c9be9df
commit 77fb8f419d
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1213,14 +1213,18 @@ theDict = do
let (prefix,name) = L.splitAt 2 gitHash let (prefix,name) = L.splitAt 2 gitHash
let path = joinPath [d, "objects", prefix, name] let path = joinPath [d, "objects", prefix, name]
touch path here <- doesPathExist path
liftIO $ print $ pretty t <+> pretty s <+> pretty h <+> pretty path unless here do
let params = Zlib.defaultCompressParams { Zlib.compressMethod = Zlib.deflateMethod } touch path
UIO.withBinaryFileAtomic path WriteMode $ \fh -> do
let contents = Zlib.compressWith params (signature <> body) liftIO $ print $ pretty t <+> pretty s <+> pretty h <+> pretty path
LBS.hPutStr fh contents
let params = Zlib.defaultCompressParams { Zlib.compressMethod = Zlib.deflateMethod }
UIO.withBinaryFileAtomic path WriteMode $ \fh -> do
let contents = Zlib.compressWith params (signature <> body)
LBS.hPutStr fh contents
pure True pure True