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

minor bugfix

This commit is contained in:
Dmitry Zuikov 2023-10-07 14:48:49 +03:00
parent 8842843ffb
commit ded14a0e26
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-git/lib/HBS2Git/App.hs
View File

@ -238,7 +238,8 @@ runWithRPC action = do
let answ = parseTop (LBS.unpack o) & fromRight mempty let answ = parseTop (LBS.unpack o) & fromRight mempty
let so = headMay [ Text.unpack r | ListVal (Key "rpc:" [LitStrVal r]) <- answ ] so <- pure (headMay [ Text.unpack r | ListVal (Key "rpc:" [LitStrVal r]) <- answ ])
`orDie` "hbs2-peer rpc not detected"
-- FIXME: logger-to-support-colors -- FIXME: logger-to-support-colors
liftIO $ hPutDoc stderr $ yellow "rpc: found RPC" <+> pretty so liftIO $ hPutDoc stderr $ yellow "rpc: found RPC" <+> pretty so
@ -246,8 +247,7 @@ runWithRPC action = do
yellow "rpc: add option" <+> parens ("rpc unix" <+> dquotes (pretty so)) yellow "rpc: add option" <+> parens ("rpc unix" <+> dquotes (pretty so))
<+> "to the config .hbs2/config" <+> "to the config .hbs2/config"
<> line <> line <> line <> line
pure so
pure so `orDie` "hbs2-peer rpc not detected"
runApp :: MonadUnliftIO m => WithLog -> App m () -> m () runApp :: MonadUnliftIO m => WithLog -> App m () -> m ()
runApp l m = do runApp l m = do