haskoin-node 1.1.2 → 1.1.3

raw patch · 4 files changed

+17/−4 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Haskoin.Node: ticklePeer :: MonadLoggerIO m => PeerMgr -> Peer -> m ()

Files

CHANGELOG.md +6/−0
haskoin-node.cabal +2/−2
src/Haskoin/Node.hs +1/−0
src/Haskoin/Node/PeerMgr.hs +8/−2

CHANGELOG.md view

@@ -4,6 +4,12 @@ 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). +## [1.1.3] - 2024-05-23++### Fixed++- Tickle a peer whenever a message is received.+ ## [1.1.2] - 2024-05-23  ### Fixed

haskoin-node.cabal view

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: f9da60a901490032b5ae1b55fffedce7aa9ec901f923378f4994a69b7c2f0eab+-- hash: 345e7baf0677c96be51bb4f0abff6d4cf748d03bdffff9fcee58a1daa01d850d  name:           haskoin-node-version:        1.1.2+version:        1.1.3 synopsis:       P2P library for Bitcoin and Bitcoin Cash description:    Please see the README on GitHub at <https://github.com/haskoin/haskoin-node#readme> category:       Bitcoin, Finance, Network

src/Haskoin/Node.hs view

@@ -170,6 +170,7 @@         MHeaders (Headers hs) ->           chainHeaders p (map fst hs) ch         _ -> return ()+      ticklePeer mgr p   publish (PeerEvent event) output  -- | Launch node process in the foreground.

src/Haskoin/Node/PeerMgr.hs view

@@ -25,6 +25,7 @@     peerMgrVerAck,     getPeers,     getOnlinePeer,+    ticklePeer,     buildVersion,     myVersion,     toSockAddr,@@ -386,6 +387,12 @@     "Housekeeping for peer " <> p.label   checkPeer p +ticklePeer :: ( MonadLoggerIO m) => PeerMgr -> Peer -> m ()+ticklePeer m p = do+  $(logDebugS) "PeerMgr" $ "Tickle peer " <> p.label+  t <- liftIO getCurrentTime+  atomically $ modifyPeer m.peers p $ \o -> o {tickled = t}+ checkPeer :: (MonadManager m, MonadLoggerIO m) => Peer -> m () checkPeer p = do   busy <- getBusy p@@ -633,8 +640,7 @@       b       o         { ping = Nothing,-          pings = sort $ take 11 $ diff : o.pings,-          tickled = now+          pings = sort $ take 11 $ diff : o.pings         }  setPeerPing :: TVar [OnlinePeer] -> Word64 -> UTCTime -> Peer -> STM ()