From 733e7f5a9c4ba8ce6aac069ffd5304537566d506 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Thu, 30 Jan 2025 13:22:40 +0300
Subject: [PATCH] wip

---
 hbs2-git3/lib/HBS2/Git3/Run.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hbs2-git3/lib/HBS2/Git3/Run.hs b/hbs2-git3/lib/HBS2/Git3/Run.hs
index 62515a1d..3ef64911 100644
--- a/hbs2-git3/lib/HBS2/Git3/Run.hs
+++ b/hbs2-git3/lib/HBS2/Git3/Run.hs
@@ -390,7 +390,7 @@ compression      ;  prints compression level
             liftIO $ print $ fill 20  (pretty h) <+> pretty r
 
         entry $ bindMatch "reflog:refs:raw" $ nil_ $ \syn -> lift $ connectedDo do
-
+          resolveRepoKeyThrow syn >>= setGitRepoKey
           waitRepo Nothing =<< getGitRepoKeyThrow
 
           refsFiles >>= readRefsRaw >>= liftIO . mapM_ (print . pretty)