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)