voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Dmitry Zuikov 2024-08-03 10:23:39 +03:00
parent 4f563a760a
commit 84c41c4e81
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-cli/lib/HBS2/CLI/Run/RefChan.hs
View File

@ -68,8 +68,7 @@ refchanEntries = do
$ entry $ bindMatch "hbs2:refchan:list" $ \case $ entry $ bindMatch "hbs2:refchan:list" $ \case
[] -> do [] -> do
flip runContT pure do flip runContT pure do
so <- detectRPC `orDie` "rpc not found" api <- getClientAPI @PeerAPI @UNIX
api <- ContT $ withRPC2 @PeerAPI @UNIX so
r <- callService @RpcPollList2 api (Just "refchan", Nothing) r <- callService @RpcPollList2 api (Just "refchan", Nothing)
>>= orThrowUser "can't get refchan list" >>= orThrowUser "can't get refchan list"
pure $ mkList $ fmap (mkStr . show . pretty . AsBase58 . view _1) r pure $ mkList $ fmap (mkStr . show . pretty . AsBase58 . view _1) r
@ -107,7 +106,6 @@ HucjFUznHJeA2UYZCdUFHtnE3pTwhCW5Dp7LV3ArZBcr
callCC $ \exit -> do callCC $ \exit -> do
so <- detectRPC `orDie` "rpc not found"
api <- getClientAPI @RefChanAPI @UNIX api <- getClientAPI @RefChanAPI @UNIX
sto <- getStorage sto <- getStorage