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

wip28

This commit is contained in:
voidlizard 2024-12-06 14:01:20 +03:00
parent 77fb8f419d
commit c16422addc
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1228,6 +1228,12 @@ theDict = do
pure True pure True
IOp _ _ (ISetRef ref w h ) -> do
let path = d </> show (pretty $ gitNormaliseRef ref)
touch path
UIO.writeBinaryFileAtomic path ( BS8.pack ( show (pretty h) <> "\n" ) )
pure True
_ -> pure True _ -> pure True
pure () pure ()