From 4b2da6bcadabc0d4d2d7b67fb0f8069cab6751a8 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Fri, 24 Jan 2025 06:47:52 +0300 Subject: [PATCH] wip --- hbs2-git3/lib/HBS2/Git3/Run.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/hbs2-git3/lib/HBS2/Git3/Run.hs b/hbs2-git3/lib/HBS2/Git3/Run.hs index 7e77ba43..9e5a84be 100644 --- a/hbs2-git3/lib/HBS2/Git3/Run.hs +++ b/hbs2-git3/lib/HBS2/Git3/Run.hs @@ -436,10 +436,11 @@ compression ; prints compression level entry $ bindMatch "reflog:refs:raw" $ nil_ $ \syn -> lift $ connectedDo do refsFiles >>= readRefsRaw >>= liftIO . mapM_ (print . pretty) - entry $ bindMatch "reflog:wait" $ nil_ $ \syn -> lift $ connectedDo do + entry $ bindMatch "repo:wait" $ nil_ $ \syn -> lift $ connectedDo do let (_,argz) = splitOpts [] syn let t = headMay [ realToFrac x | LitIntVal x <- argz ] waitRepo t + getRepoManifest >>= liftIO . print . pretty . mkForm "manifest" . coerce entry $ bindMatch "reflog:imported" $ nil_ $ \syn -> lift $ connectedDo do p <- importedCheckpoint