From 599310a18314ad3f51f58779ec343904d879d210 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Fri, 14 Jul 2023 21:10:31 +0300
Subject: [PATCH] wip, cli refchan head get - minor opt

---
 hbs2-peer/app/RefChan.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/hbs2-peer/app/RefChan.hs b/hbs2-peer/app/RefChan.hs
index 58e661bf..7c99574c 100644
--- a/hbs2-peer/app/RefChan.hs
+++ b/hbs2-peer/app/RefChan.hs
@@ -103,17 +103,12 @@ readBlob hr = do
   sto <- getStorage
   let readBlock h = liftIO $ getBlock sto h
 
-  let mfo acc el = case (acc, el) of
-       (Nothing, Just s) -> Just [s]
-       (_, Nothing) -> Nothing
-       (Just ss, Just s)  -> Just (s:ss)
-
-  chunks <- S.fold_ mfo Nothing id $
+  chunks <- S.toList_ $
               deepScan ScanDeep (const $ S.yield Nothing) (fromHashRef hr) readBlock $ \ha -> do
                 unless (fromHashRef hr == ha) do
                   readBlock ha >>= S.yield
 
-  pure $ LBS.concat . reverse <$> chunks
+  pure $ LBS.concat <$> sequence chunks
 
 refChanWorker :: forall e s m . ( MonadIO m
                                 , MonadUnliftIO m