diff --git a/hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/Import.hs b/hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/Import.hs index bc27a181..8a20ef20 100644 --- a/hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/Import.hs +++ b/hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/Import.hs @@ -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 diff --git a/hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/RefLog.hs b/hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/RefLog.hs index a44de8c6..9ccfe1fc 100644 --- a/hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/RefLog.hs +++ b/hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/RefLog.hs @@ -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) diff --git a/nix/peer/flake.lock b/nix/peer/flake.lock index 0c119169..256a106f 100644 --- a/nix/peer/flake.lock +++ b/nix/peer/flake.lock @@ -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" },