haskoin-store 0.65.9 → 0.65.10

raw patch · 5 files changed

+17/−10 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

CHANGELOG.md +8/−1
haskoin-store.cabal +1/−1
src/Haskoin/Store/Cache.hs +0/−2
src/Haskoin/Store/Manager.hs +8/−5
src/Haskoin/Store/Web.hs +0/−1

CHANGELOG.md view

@@ -4,7 +4,14 @@ 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) -## Unreleased+## 0.65.10+### Changed+- Revert to older LTS Haskell to attempt to resolve memory leak.++### Removed+- Remove unnecessary lock release.++## 0.65.9 ### Changed - Be more aggressive caching individual transactions. - Introduce a periodic cache mempool sync task.

haskoin-store.cabal view

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

src/Haskoin/Store/Cache.hs view

@@ -151,7 +151,6 @@     MonadUnliftIO,     TQueue,     TVar,-    async,     atomically,     bracket,     liftIO,@@ -964,7 +963,6 @@               $(logInfoS) "Cache" "Cache best block higher than this node's"     do_import bn = do       importBlockC . headerHash $ nodeHeader bn-      refreshLock  importBlockC ::   (MonadUnliftIO m, StoreReadExtra m, MonadLoggerIO m) =>

src/Haskoin/Store/Manager.hs view

@@ -1,4 +1,5 @@ {-# LANGUAGE FlexibleContexts #-}+{-# LANGUAGE ImportQualifiedPost #-}  module Haskoin.Store.Manager   ( StoreConfig (..),@@ -57,9 +58,10 @@     CacheWriter,     cacheNewBlock,     cacheNewTx,+    cacheSyncMempool,     cacheWriter,     connectRedis,-    newCacheMetrics, cacheSyncMempool,+    newCacheMetrics,   ) import Haskoin.Store.Common   ( StoreEvent (..),@@ -81,7 +83,7 @@     withSubscription,   ) import Network.Socket (SockAddr (..))-import qualified System.Metrics as Metrics (Store)+import System.Metrics qualified as Metrics (Store) import UnliftIO   ( MonadIO,     MonadUnliftIO,@@ -268,9 +270,10 @@  cacheWriterEvents :: MonadUnliftIO m => Int -> Inbox StoreEvent -> CacheWriter -> m () cacheWriterEvents interval evts cwm =-  withAsync mempool . const $ forever $-    receive evts >>= \e ->-      e `cacheWriterDispatch` cwm+  withAsync mempool . const $+    forever $+      receive evts >>= \e ->+        e `cacheWriterDispatch` cwm   where     mempool = forever $ do       threadDelay (interval * 1000 * 1000)

src/Haskoin/Store/Web.hs view

@@ -217,7 +217,6 @@     MonadUnliftIO,     TVar,     askRunInIO,-    async,     atomically,     bracket,     bracket_,