diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -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.
diff --git a/haskoin-store.cabal b/haskoin-store.cabal
--- a/haskoin-store.cabal
+++ b/haskoin-store.cabal
@@ -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
diff --git a/src/Network/Haskoin/Store/Block.hs b/src/Network/Haskoin/Store/Block.hs
--- a/src/Network/Haskoin/Store/Block.hs
+++ b/src/Network/Haskoin/Store/Block.hs
@@ -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 ()