haskoin-store 0.40.11 → 0.40.12

raw patch · 2 files changed

+3/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• haskoin-store.cabal +1/−1
• src/Haskoin/Store/Cache.hs +2/−2

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           haskoin-store-version:        0.40.11+version:        0.40.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

@@ -976,11 +976,11 @@              => CacheX m () syncMempoolC = do     refresh <- toInteger <$> asks cacheRefresh-    void . withLock . withCool "cool" (refresh * 10 `div` 9) $ do+    void . withLock . withCool "cool" (refresh * 9 `div` 10) $ do         nodepool <- HashSet.fromList . map snd <$> lift getMempool         cachepool <- HashSet.fromList . map snd <$> cacheGetMempool         getem (HashSet.difference nodepool cachepool)-        withCool "prune" (refresh * 100 `div` 9) $+        withCool "prune" (refresh * 90 `div` 10) $             getem (HashSet.difference cachepool nodepool)   where     getem tset = do