haskoin-store 1.5.9 → 1.5.10

raw patch · 3 files changed

+4/−6 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• app/Main.hs +0/−2
• haskoin-store.cabal +1/−1
• src/Haskoin/Store/BlockStore.hs +3/−3

@@ -13,7 +13,6 @@  module Main (main) where -import Control.Applicative ((<|>)) import Control.Monad (when) import Control.Monad.Cont (ContT (ContT), runContT) import Control.Monad.Logger@@ -23,7 +22,6 @@     runStderrLoggingT,   ) import Control.Monad.Trans (lift)-import Control.Monad.Trans.Maybe (MaybeT (..), runMaybeT) import Data.Char (toLower) import Data.Default (Default (..)) import Data.List (intercalate)

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           haskoin-store-version:        1.5.9+version:        1.5.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

@@ -623,7 +623,7 @@   ts <- asks (.txs)   now <- liftIO getCurrentTime   atomically . modifyTVar ts . HashMap.filter $ \p ->-    now `diffUTCTime` p.time > 600+    now `diffUTCTime` p.time > 3600  addPendingTx :: (MonadIO m) => PendingTx -> BlockT m () addPendingTx p = do@@ -836,10 +836,10 @@               <> " "               <> txHashToHex h               <> ": "-              <> "Pending"+              <> "Already Pending"           return Nothing         False ->-          getActiveTxData h >>= \case+          getTxData h >>= \case             Just _ -> do               $(logDebugS) "BlockStore" $                 "Tx "