diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -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.
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.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
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
@@ -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) =>
diff --git a/src/Haskoin/Store/Manager.hs b/src/Haskoin/Store/Manager.hs
--- a/src/Haskoin/Store/Manager.hs
+++ b/src/Haskoin/Store/Manager.hs
@@ -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)
diff --git a/src/Haskoin/Store/Web.hs b/src/Haskoin/Store/Web.hs
--- a/src/Haskoin/Store/Web.hs
+++ b/src/Haskoin/Store/Web.hs
@@ -217,7 +217,6 @@
     MonadUnliftIO,
     TVar,
     askRunInIO,
-    async,
     atomically,
     bracket,
     bracket_,