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

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

@ -1213,6 +1213,10 @@ 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]
here <- doesPathExist path
unless here do
touch path touch path
liftIO $ print $ pretty t <+> pretty s <+> pretty h <+> pretty path liftIO $ print $ pretty t <+> pretty s <+> pretty h <+> pretty path