haskoin-store 0.2.2 → 0.2.3

raw patch · 3 files changed

+10/−6 lines, 3 files

Files

CHANGELOG.md +4/−0
haskoin-store.cabal +2/−2
src/Network/Haskoin/Store/Block.hs +4/−4

CHANGELOG.md view

@@ -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.2.3+### Removed+- Do not send transaction notifications if a block is being imported.+ ## 0.2.2 ### Added - Peer information endpoint.

haskoin-store.cabal view

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: c68edb19a7064640182f5396066a228cf3a4eeacedb7b6e15a027c549bbb292f+-- hash: b699d7a2ed5b2ee3d05c7af8cdde725e59d289f9f99dfdce6a897a9b7fca1d38  name:           haskoin-store-version:        0.2.2+version:        0.2.3 synopsis:       Storage and index for Bitcoin and Bitcoin Cash description:    Store blocks, transactions, and balances for Bitcoin or Bitcoin Cash, and make that information via REST API. category:       Bitcoin, Finance, Network

src/Network/Haskoin/Store/Block.hs view

@@ -134,13 +134,13 @@         db <- asks myBlockDB         writeBatch db ops         l <- asks myListener-        gets blockAction >>= \case+        ba <- gets blockAction+        case ba of             Just (ImportBlock Block {..}) ->                 atomically (l (BestBlock (headerHash blockHeader)))             Just RevertBlock -> $(logWarnS) "Block" "Reverted best block"-            _ -> return ()-        gets newTxs >>= \ths ->-            forM_ (M.keys ths) $ \tx -> atomically (l (MempoolNew tx))+            Nothing -> gets newTxs >>= \ths ->+                forM_ (M.keys ths) $ \tx -> atomically (l (MempoolNew tx))  -- | Run block store process. blockStore :: (MonadUnliftIO m, MonadLoggerIO m) => BlockConfig -> m ()