From 148aa69533dca0c6e4017cbce7d228dd2e4da043 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Thu, 30 Jan 2025 13:26:45 +0300
Subject: [PATCH] wip

---
 hbs2-git3/lib/HBS2/Git3/Run.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/hbs2-git3/lib/HBS2/Git3/Run.hs b/hbs2-git3/lib/HBS2/Git3/Run.hs
index 3ef64911..db17a4ee 100644
--- a/hbs2-git3/lib/HBS2/Git3/Run.hs
+++ b/hbs2-git3/lib/HBS2/Git3/Run.hs
@@ -396,11 +396,8 @@ compression      ;  prints compression level
           refsFiles >>= readRefsRaw >>= liftIO . mapM_ (print . pretty)
 
         entry $ bindMatch "repo:wait" $ nil_ $ \syn -> lift $ connectedDo do
-          let (_,argz) = splitOpts [] syn
-
-          let t = headMay [ realToFrac x | LitIntVal x <- argz ]
-
-          waitRepo t =<< getGitRepoKeyThrow
+          resolveRepoKeyThrow syn >>= setGitRepoKey
+          waitRepo Nothing =<< getGitRepoKeyThrow
 
           getRepoManifest >>= liftIO . print . pretty . mkForm "manifest" . coerce