haskoin-node 0.9.9 → 0.9.10

raw patch · 4 files changed

+13/−5 lines, 4 files

Files

• CHANGELOG.md +4/−0
• haskoin-node.cabal +2/−2
• src/Network/Haskoin/Node/Chain.hs +7/−2
• src/Network/Haskoin/Node/Manager.hs +0/−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.10+### Added+- Increase debugging information where application freezes.+ ## 0.9.9 ### Added - Increase debugging information.

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 0278071e411da1cacdc3c6fc2b5f0d0b228116f74a470344cb4551f878e05c8e+-- hash: ed26c1f8581dfc0159d9f218bdcadf4dd80c69ae8298bac37fcb472554abdb3d  name:           haskoin-node-version:        0.9.9+version:        0.9.10 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

@@ -155,8 +155,13 @@  chainMessage :: MonadChain m => ChainMessage -> m () chainMessage (ChainGetBest reply) = do-    $(logDebugS) "Chain" "Responding to request for best block"-    getBestBlockHeader >>= atomically . reply+    $(logDebugS) "Chain" "Responding to request for best block header"+    getBestBlockHeader >>= \bh -> do+        $(logDebugS) "Chain" $+            "Best block header: " <> blockHashToHex (headerHash (nodeHeader bh)) <>+            " at height " <>+            cs (show (nodeHeight bh))+        atomically $ reply bh chainMessage (ChainHeaders p hs) = do     $(logDebugS) "Chain" $ "Processing " <> cs (show (length hs)) <> " headers"     processHeaders p hs

@@ -103,7 +103,6 @@             forever $ do                 $(logDebugS) "Manager" "Awaiting message..."                 m <- receive inbox-                $(logDebugS) "Manager" "Processing message.."                 managerMessage m     f (a, mex) = ManagerPeerDied a mex `sendSTM` mgr