From a7aaa83a8c9bf82c076c1d44d2944b0792aeb827 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Wed, 15 Jan 2025 10:17:49 +0300 Subject: [PATCH] z --- hbs2-git3/lib/HBS2/Git3/State/Index.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/hbs2-git3/lib/HBS2/Git3/State/Index.hs b/hbs2-git3/lib/HBS2/Git3/State/Index.hs index 0d9038f0..16149fcf 100644 --- a/hbs2-git3/lib/HBS2/Git3/State/Index.hs +++ b/hbs2-git3/lib/HBS2/Git3/State/Index.hs @@ -10,6 +10,7 @@ import HBS2.Data.Log.Structured import Data.ByteString qualified as BS import Data.ByteString.Lazy ( ByteString ) import Data.ByteString.Lazy qualified as LBS +import Data.ByteString.Lazy.Char8 qualified as LBS8 import Data.List qualified as L import Network.ByteOrder qualified as N import System.IO.Temp as Temp @@ -381,10 +382,10 @@ updateReflogIndex = do guard (LBS.length what > 0) - notice $ "unpacked!" <+> pretty h <+> pretty (LBS.length what) - pieces <- S.toList_ $ do - void $ runConsumeLBS what $ readLogFileLBS () $ \o _ _ -> do + void $ runConsumeLBS what $ readLogFileLBS () $ \o _ lbs -> do + let (t, _) = LBS.splitAt 1 lbs + notice $ pretty (LBS8.unpack t) <+> pretty o lift $ S.yield o lift $ S.yield (h, pieces)