From c16422addc066ae625023bb2a1bd2184259a74f2 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Fri, 6 Dec 2024 14:01:20 +0300 Subject: [PATCH] wip28 --- hbs2-git3/app/Main.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/hbs2-git3/app/Main.hs b/hbs2-git3/app/Main.hs index 48eed454..a600536c 100644 --- 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 ()