haskoin-store 0.47.1 → 0.47.2

raw patch · 3 files changed

+15/−9 lines, 3 filesdep ~haskoin-store-dataPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: haskoin-store-data

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• haskoin-store.cabal +5/−5
• src/Haskoin/Store/Web.hs +6/−4

@@ -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.47.2+### Fixed+- Fix serialization bug for health check.+ ## 0.47.1 ### Fixed - Fix serialization bugs for web data types.

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: ff4a7aa140e43d4d77540711eef740057152592f5a48cdcd968ab1eca8176fbe+-- hash: 1496ff19275a9949a906f360913bb037ff09b00be3a0be9024799df0ec21eb18  name:           haskoin-store-version:        0.47.1+version:        0.47.2 synopsis:       Storage and index for Bitcoin and Bitcoin Cash description:    Please see the README on GitHub at <https://github.com/haskoin/haskoin-store#readme> category:       Bitcoin, Finance, Network@@ -61,7 +61,7 @@     , hashable >=1.3.0.0     , haskoin-core >=0.19.0     , haskoin-node >=0.17.0-    , haskoin-store-data ==0.47.1+    , haskoin-store-data ==0.47.2     , hedis >=0.12.13     , http-types >=0.12.3     , lens >=4.18.1@@ -113,7 +113,7 @@     , haskoin-core >=0.19.0     , haskoin-node >=0.17.0     , haskoin-store-    , haskoin-store-data ==0.47.1+    , haskoin-store-data ==0.47.2     , hedis >=0.12.13     , http-types >=0.12.3     , lens >=4.18.1@@ -170,7 +170,7 @@     , haskoin-core >=0.19.0     , haskoin-node >=0.17.0     , haskoin-store-    , haskoin-store-data ==0.47.1+    , haskoin-store-data ==0.47.2     , hedis >=0.12.13     , hspec >=2.7.1     , http-types >=0.12.3

@@ -1663,7 +1663,7 @@                  => WebConfig -> m BlockHealth blockHealthCheck cfg = do     let ch = storeChain $ webStore cfg-        blockHealthMaxDiff = webMaxDiff cfg+        blockHealthMaxDiff = fromIntegral $ webMaxDiff cfg     blockHealthHeaders <-         H.nodeHeight <$> chainGetBest ch     blockHealthBlocks <-@@ -1699,15 +1699,17 @@ pendingTxsHealthCheck :: (MonadUnliftIO m, MonadLoggerIO m, StoreReadBase m)                       => WebConfig -> m MaxHealth pendingTxsHealthCheck cfg = do-    let maxHealthMax = webMaxPending cfg-    maxHealthNum <- blockStorePendingTxs (storeBlock (webStore cfg))+    let maxHealthMax = fromIntegral $ webMaxPending cfg+    maxHealthNum <-+        fromIntegral <$>+        blockStorePendingTxs (storeBlock (webStore cfg))     return MaxHealth {..}  peerHealthCheck :: (MonadUnliftIO m, MonadLoggerIO m, StoreReadBase m)                 => PeerManager -> m CountHealth peerHealthCheck mgr = do     let countHealthMin = 1-    countHealthNum <- length <$> getPeers mgr+    countHealthNum <- fromIntegral . length <$> getPeers mgr     return CountHealth {..}  healthCheck :: (MonadUnliftIO m, MonadLoggerIO m, StoreReadBase m)