wip28

2024-12-06 14:01:20 +03:00 · 2024-12-06 14:01:20 +03:00 · c16422addc
parent 77fb8f419d
commit c16422addc
1 changed files with 6 additions and 0 deletions
--- a/hbs2-git3/app/Main.hs
+++ b/hbs2-git3/app/Main.hs
@ -1228,6 +1228,12 @@ theDict = do

                  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 ()