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-07-29 09:34:47 +03:00
parent bf8ade46aa
commit 88d3788c99
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-cli/lib/HBS2/CLI/Run/Peer.hs
View File

@ -38,10 +38,8 @@ putTextLit sto s = do
peerEntries :: forall c m . (c ~ C, IsContext c, MonadUnliftIO m) => MakeDictM c m () peerEntries :: forall c m . (c ~ C, IsContext c, MonadUnliftIO m) => MakeDictM c m ()
peerEntries = do peerEntries = do
entry $ bindMatch "hbs2:peer:detect" $ nil_ \case entry $ bindMatch "hbs2:peer:detect" $ \case
_ -> do _ -> detectRPC <&> maybe (nil @c) mkStr
so <- detectRPC
display so
entry $ bindMatch "hbs2:peer:get-block" $ \case entry $ bindMatch "hbs2:peer:get-block" $ \case
[StringLike s] -> do [StringLike s] -> do