diff --git a/haskoin-store.cabal b/haskoin-store.cabal
--- a/haskoin-store.cabal
+++ b/haskoin-store.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           haskoin-store
-version:        0.40.9
+version:        0.40.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
diff --git a/src/Haskoin/Store/Cache.hs b/src/Haskoin/Store/Cache.hs
--- a/src/Haskoin/Store/Cache.hs
+++ b/src/Haskoin/Store/Cache.hs
@@ -572,17 +572,13 @@
        (MonadUnliftIO m, MonadLoggerIO m, StoreReadExtra m)
     => CacheWriterMessage -> CacheX m ()
 cacheWriterReact CacheNewBlock =
-    inSync >>= \s ->
-    when s $ do
+    inSync >>= \s -> when s
     newBlockC
-    syncMempoolC
 cacheWriterReact (CachePing respond) =
-    inSync >>= \s ->
-    when s $ do
-    pruneDB
-    newBlockC
-    syncMempoolC
-    atomically $ respond ()
+    inSync >>= \s -> when s $
+    syncMempoolC >>
+    pruneDB >>
+    atomically (respond ())
 
 lenNotNull :: [XPubBal] -> Int
 lenNotNull bals = length $ filter (not . nullBalance . xPubBal) bals