wip

hbs2-git3/app/GitRemoteHelper.hs

@@ -83,7 +83,7 @@ localDict DeferredOps{..} = makeDict @C do
       rrefs <- importedRefs
 
       for_ rrefs $ \(r,h) -> do
-        debug $ pretty h <+> pretty r
+        notice $ yellow "REF" <+> pretty h <+> pretty r
         sendLine $ show $ pretty h <+> pretty r
 
       let l = lastMay rrefs

hbs2-git3/lib/HBS2/Git3/Run.hs

@@ -433,11 +433,13 @@ compression      ;  prints compression level
             forM_ decoded print
 
         entry $ bindMatch "reflog:refs" $ nil_ $ \syn -> lift $ connectedDo do
+          waitRepo Nothing
           rrefs <- importedRefs
           for_  rrefs $ \(r,h) -> do
             liftIO $ print $ fill 20  (pretty h) <+> pretty r
 
         entry $ bindMatch "reflog:refs:raw" $ nil_ $ \syn -> lift $ connectedDo do
+          waitRepo Nothing
           refsFiles >>= readRefsRaw >>= liftIO . mapM_ (print . pretty)
 
         entry $ bindMatch "repo:wait" $ nil_ $ \syn -> lift $ connectedDo do

hbs2-git3/lib/HBS2/Git3/State.hs

@@ -60,7 +60,10 @@ updateRepoKey key = do
   reflog <- getRepoManifest <&> getRefLog
 
   ask >>= \case
-        Git3Connected{..} -> atomically $ writeTVar gitRefLog reflog
+        Git3Connected{..} -> do
+          notice $ yellow "UPDATED REFLOG" <+> pretty (fmap AsBase58 reflog)
+          atomically $ writeTVar gitRefLog reflog
+
         _ -> none
 
 getRepoRefMaybe :: forall m . HBS2GitPerks m => Git3 m (Maybe (LWWRef 'HBS2Basic))