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.14.2
+### Changed
+- Target LTS Haskell 12.26 to attempt to fix freezing bug.
+
 ## 0.14.1
 ### Added
 - Extra debugging around code that freezes.
diff --git a/haskoin-store.cabal b/haskoin-store.cabal
--- a/haskoin-store.cabal
+++ b/haskoin-store.cabal
@@ -1,13 +1,13 @@
-cabal-version: 1.12
+cabal-version: 2.0
 
 -- This file has been generated from package.yaml by hpack version 0.31.1.
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 8f1ba25105410baa714dfab266a240edee9db75acaf255263585ba43efbce9be
+-- hash: b30a97088c5dd987291b4fe243504c3cb3e121a9a1294c8e965b2957b51cb755
 
 name:           haskoin-store
-version:        0.14.1
+version:        0.14.2
 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
@@ -29,6 +29,7 @@
 library
   exposed-modules:
       Haskoin.Store
+      Paths_haskoin_store
   other-modules:
       Network.Haskoin.Store.Block
       Network.Haskoin.Store.Data
@@ -38,6 +39,7 @@
       Network.Haskoin.Store.Data.STM
       Network.Haskoin.Store.Logic
       Network.Haskoin.Store.Messages
+  autogen-modules:
       Paths_haskoin_store
   hs-source-dirs:
       src
@@ -77,7 +79,7 @@
       Paths_haskoin_store
   hs-source-dirs:
       app
-  ghc-options: -threaded -rtsopts -with-rtsopts=-N
+  ghc-options: -threaded -rtsopts -with-rtsopts=-N -O2
   build-depends:
       aeson
     , base >=4.9 && <5
diff --git a/src/Haskoin/Store.hs b/src/Haskoin/Store.hs
--- a/src/Haskoin/Store.hs
+++ b/src/Haskoin/Store.hs
@@ -121,8 +121,7 @@
 withStore cfg f = do
     mgri <- newInbox
     chi <- newInbox
-    withProcess (store cfg mgri chi) $ \(Process a b) -> do
-        link a
+    withProcess (store cfg mgri chi) $ \(Process _ b) ->
         f
             Store
                 { storeManager = inboxToMailbox mgri
diff --git a/src/Network/Haskoin/Store/Data.hs b/src/Network/Haskoin/Store/Data.hs
--- a/src/Network/Haskoin/Store/Data.hs
+++ b/src/Network/Haskoin/Store/Data.hs
@@ -318,7 +318,7 @@
         binSerial net b
         put p
         putWord64be v
-        put s
+        put $ B.Short.fromShort s
 
 -- | Database value for a block entry.
 data BlockData = BlockData