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 2023-02-03 12:43:13 +03:00
parent a3fcd26ea1
commit 7fd8e9f153
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
hbs2-peer/app/PeerMain.hs
View File

@ -83,11 +83,13 @@ deriving stock instance Eq (SessionKey UDP (BlockChunks UDP))
main :: IO () main :: IO ()
main = do main = do
setLogging @DEBUG asIs sodiumInit
-- setLogging @INFO asIs
-- setLogging @ERROR asIs setLogging @DEBUG (set loggerTr ("[debug] " <>))
-- setLogging @WARN asIs setLogging @INFO asIs
-- setLogging @NOTICE asIs setLogging @ERROR asIs
setLogging @WARN asIs
setLogging @NOTICE asIs
withSimpleLogger runCLI withSimpleLogger runCLI
@ -212,9 +214,6 @@ instance ( Monad m
runPeer :: PeerOpts -> IO () runPeer :: PeerOpts -> IO ()
runPeer opts = Exception.handle myException $ do runPeer opts = Exception.handle myException $ do
debug "STARTED!"
sodiumInit
rpcQ <- newTQueueIO @RPCCommand rpcQ <- newTQueueIO @RPCCommand
@ -227,7 +226,7 @@ runPeer opts = Exception.handle myException $ do
pc <- pure pc' `orDie` "can't parse credential file" pc <- pure pc' `orDie` "can't parse credential file"
debug $ "run peer" <+> pretty (AsBase58 (view peerSignPk pc)) notice $ "run peer" <+> pretty (AsBase58 (view peerSignPk pc))
xdg <- getXdgDirectory XdgData defStorePath <&> fromString xdg <- getXdgDirectory XdgData defStorePath <&> fromString
@ -243,7 +242,7 @@ runPeer opts = Exception.handle myException $ do
`orDie` "assertion: localMulticastPeer not set" `orDie` "assertion: localMulticastPeer not set"
debug $ pretty localMulticast notice $ "multicast:" <+> pretty localMulticast
mess <- newMessagingUDP False (Just (view listenOn opts)) mess <- newMessagingUDP False (Just (view listenOn opts))
`orDie` "unable listen on the given addr" `orDie` "unable listen on the given addr"