haskoin-store 0.52.11 → 0.52.12

raw patch · 3 files changed

+15/−11 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/−6

@@ -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.52.12+### Fixed+- Fix limits for legacy endpoints.+ ## 0.52.11 ### Added - Alias for Blockchain.info raw address endpoint.

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 87f5b73f7854f6eded593b1618c50d419021619838e0e2128617012623c736bb+-- hash: 295072531878fe4adabaa9de55d7088d20069a0bff0dfa6e0fec121e32a63fa9  name:           haskoin-store-version:        0.52.11+version:        0.52.12 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.52.11+    , haskoin-store-data ==0.52.12     , hedis >=0.12.13     , http-types >=0.12.3     , lens >=4.18.1@@ -115,7 +115,7 @@     , haskoin-core >=0.19.0     , haskoin-node >=0.17.0     , haskoin-store-    , haskoin-store-data ==0.52.11+    , haskoin-store-data ==0.52.12     , hedis >=0.12.13     , http-types >=0.12.3     , lens >=4.18.1@@ -174,7 +174,7 @@     , haskoin-core >=0.19.0     , haskoin-node >=0.17.0     , haskoin-store-    , haskoin-store-data ==0.52.11+    , haskoin-store-data ==0.52.12     , hedis >=0.12.13     , hspec >=2.7.1     , http-types >=0.12.3

@@ -1587,7 +1587,7 @@     cashaddr <- getCashAddr     local <- getSymbol     offset <- getBinfoOffset multiaddrStat-    n <- getBinfoCount+    n <- getBinfoCount "n"     prune <- get_prune     fltr <- get_filter     let len = HashSet.size addrs' + HashSet.size xpubs@@ -1755,11 +1755,11 @@       | otherwise = 0     received _ = 0 -getBinfoCount :: (MonadUnliftIO m, MonadLoggerIO m) => WebT m Int-getBinfoCount = do+getBinfoCount :: (MonadUnliftIO m, MonadLoggerIO m) => TL.Text -> WebT m Int+getBinfoCount str = do         d <- lift (asks (maxLimitDefault . webMaxLimits . webConfig))         x <- lift (asks (maxLimitFull . webMaxLimits . webConfig))-        i <- min x <$> (S.param "n" `S.rescue` const (return d))+        i <- min x <$> (S.param str `S.rescue` const (return d))         return (fromIntegral i :: Int)  getBinfoOffset :: (MonadUnliftIO m, MonadLoggerIO m)@@ -1778,7 +1778,7 @@     setMetrics rawaddrStat 1     addr <- get_addr     numtxid <- getNumTxId-    n <- getBinfoCount+    n <- getBinfoCount "limit"     off <- getBinfoOffset rawaddrStat     bal <- fromMaybe (zeroBalance addr) <$> getBalance addr     net <- lift $ asks (storeNetwork . webStore . webConfig)@@ -1975,7 +1975,7 @@     setMetrics mempoolStat 1     numtxid <- getNumTxId     offset <- getBinfoOffset mempoolStat-    n <- getBinfoCount+    n <- getBinfoCount "limit"     mempool <- getMempool     let txids = map snd $ take n $ drop offset mempool     txs <- catMaybes <$> mapM getTransaction txids