haskoin-node 0.9.18 → 0.9.19

raw patch · 5 files changed

+16/−13 lines, 5 files

Files

• CHANGELOG.md +4/−0
• haskoin-node.cabal +2/−2
• src/Network/Haskoin/Node/Chain.hs +2/−2
• src/Network/Haskoin/Node/Manager.hs +7/−8
• src/Network/Haskoin/Node/Peer.hs +1/−1

@@ -4,6 +4,10 @@ The format is based on [Keep a Changelog](http://keepachangelog.com/en/1.0.0/) and this project adheres to [Semantic Versioning](http://semver.org/spec/v2.0.0.html). +## 0.9.19+### Changed+- Better log messages.+ ## 0.9.18 ### Added - More aggressive peer discovery.

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: c482469edd83b9fc0df9149423d5cd86941fd9fad71987399c485a1da222deb6+-- hash: 917e10b5d9a35cb85510666d9e1af2a97ae9b7390c2456c2cb141f7fdda4c10d  name:           haskoin-node-version:        0.9.18+version:        0.9.19 synopsis:       Haskoin Node P2P library for Bitcoin and Bitcoin Cash description:    Bitcoin and Bitcoin Cash peer-to-peer protocol library featuring headers-first synchronisation. category:       Bitcoin, Finance, Network

@@ -89,12 +89,12 @@     db = chainConfDB cfg     ch = inboxToMailbox inbox     run = do-        $(logDebugS) "Chain" "Initializing..."+        $(logDebugS) "Chain" "Initializing"         initChainDB net         getBestBlockHeader >>= chainEvent . ChainBestBlock         $(logInfoS) "Chain" "Initialization complete"         forever $ do-          $(logDebugS) "Chain" "Awaiting message..."+          $(logDebugS) "Chain" "Awaiting message"           receive inbox >>= chainMessage  chainEvent :: MonadChain m => ChainEvent -> m ()

@@ -111,14 +111,14 @@   where     mgr = inboxToMailbox inbox     go = do-        $(logDebugS) "Manager" "Initializing..."+        $(logDebugS) "Manager" "Initializing"         putBestBlock <=< receiveMatch inbox $ \case             ManagerBestBlock b -> Just b             _ -> Nothing         $(logDebugS) "Manager" "Initialization complete"         withConnectLoop mgr $             forever $ do-                $(logDebugS) "Manager" "Awaiting message..."+                $(logDebugS) "Manager" "Awaiting message"                 m <- receive inbox                 managerMessage m     f (a, mex) = ManagerPeerDied a mex `sendSTM` mgr@@ -445,8 +445,8 @@         forever $ do             threadDelay =<<                 liftIO (randomRIO (30 * 1000 * 1000, 90 * 1000 * 1000))-            $(logDebugS) "ManagerPeerLoop" $-                "Ping manager about peer: " <> cs (show sa)+            $(logDebugS) "Manager" $+                "Ping manager for peer housekeeping: " <> cs (show sa)             ManagerCheckPeer p `send` mgr  withConnectLoop :: (MonadLogger m, MonadUnliftIO m) => Manager -> m a -> m a@@ -454,11 +454,10 @@   where     go =         forever $ do-            $(logDebugS)-                "ManagerConnectLoop"-                "Ping manager for housekeeping"+            threadDelay =<<+                liftIO (randomRIO (2 * 1000 * 1000, 10 * 1000 * 1000))+            $(logDebugS) "Manager" "Ping manager for general housekeeping"             ManagerConnect `send` mgr-            threadDelay =<< liftIO (randomRIO (2 * 1000 * 1000, 10 * 1000 * 1000))  -- | Add a peer. newPeer :: (MonadIO m, MonadManager m) => SockAddr -> m ()

@@ -55,7 +55,7 @@   where     a = peerConfAddress pc     go = forever $ do-      $(logDebugS) s "Awaiting message..."+      $(logDebugS) s "Awaiting message"       receive inbox >>= dispatchMessage pc     net = peerConfNetwork pc     s = peerString (peerConfAddress pc)