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

wip

This commit is contained in:
voidlizard 2025-01-25 11:00:29 +03:00
parent bf3e8a49b0
commit b6ce70689d
3 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-git3/app/GitRemoteHelper.hs
View File

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

2
hbs2-git3/lib/HBS2/Git3/Run.hs
View File

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

5
hbs2-git3/lib/HBS2/Git3/State.hs
View File

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