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