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

debug-2

This commit is contained in:
Dmitry Zuikov 2024-03-15 12:14:32 +03:00
parent 9497207115
commit f7578a4a8c
3 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/Import.hs
View File

@ -84,9 +84,9 @@ importRepoWait lwwKey = do
throwIO ImportRefLogNotFound
IWaitLWWBlock w -> do
onProgress ip (ImportWaitLWW w lwwKey)
debug $ yellow ("fetchLWWRef" <+> pretty lwwKey)
fetchLWWRef lwwKey
onProgress ip (ImportWaitLWW w lwwKey)
notice $ yellow ("fetchLWWRef" <+> pretty lwwKey)
lww <- readLWWBlock sto lwwKey
case lww of

4
hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/RefLog.hs
View File

@ -29,7 +29,9 @@ subscribeLWWRef puk = do
fetchLWWRef :: (GitPerks m, MonadReader GitEnv m) => LWWRefKey HBS2Basic -> m ()
fetchLWWRef key = do
api <- asks _lwwRefAPI
void $ race (pause @'Seconds 2) (callService @RpcLWWRefFetch api key)
notice $ green "fetchLWWRef" <+> pretty key
r <- race (pause @'Seconds 2) (callService @RpcLWWRefFetch api key)
warn $ "result:" <+> viaShow r
getRefLogMerkle :: (GitPerks m, MonadReader GitEnv m) => RefLogId -> m (Maybe HashRef)

8
nix/peer/flake.lock
View File

@ -295,11 +295,11 @@
"suckless-conf": "suckless-conf_2"
},
"locked": {
"lastModified": 1710431896,
"narHash": "sha256-yQ52vtX92Ys4xqsPDCIqOrR5HBVE+rJ+VagaHc9017c=",
"lastModified": 1710493310,
"narHash": "sha256-LeTP5qZvjl4ZY23ktv6mYNuTRKsJenuEajw3Cz8vP70=",
"ref": "lwwrepo",
"rev": "3cd16684515a93bbf985891ed8e9913382484fbf",
"revCount": 981,
"rev": "9497207115ed51663415c9e066a86bcb615a3cf8",
"revCount": 982,
"type": "git",
"url": "http://git.hbs2/BTThPdHKF8XnEq4m6wzbKHKA6geLFK4ydYhBXAqBdHSP"
},