haskoin-store 0.13.0 → 0.13.1
raw patch · 3 files changed
+17/−8 lines, 3 files
Files
- CHANGELOG.md +5/−0
- haskoin-store.cabal +2/−2
- src/Network/Haskoin/Store/Block.hs +10/−6
CHANGELOG.md view
@@ -4,6 +4,11 @@ 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.13.1+### Changed+- Bump `haskoin-node` in `stack.yaml`.+- Do not send empty `getdata` messages.+ ## 0.13.0 ### Added - Primitive content negotiation for web exceptions.
haskoin-store.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 9d0d8adb21100d7684b1be65ec7f2d523adacac3ae54fd8de862bf887a7070fd+-- hash: b700d8634d497c251ec017815799d98a980e0be0531db74b2ebfcbb733bd9b60 name: haskoin-store-version: 0.13.0+version: 0.13.1 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
src/Network/Haskoin/Store/Block.hs view
@@ -238,12 +238,16 @@ t <- getTxData (db, defaultReadOptions) h guard (isNothing t) return (getTxHash h)- $(logDebugS) "Block" $- "Requesting " <> fromString (show (length xs)) <>- " new transactions"- net <- blockConfNet <$> asks myConfig- let inv = if getSegWit net then InvWitnessTx else InvTx- MGetData (GetData (map (InvVector inv) xs)) `sendMessage` p+ unless (null xs) $ do+ $(logDebugS) "Block" $+ "Requesting " <> fromString (show (length xs)) <>+ " new transactions"+ net <- blockConfNet <$> asks myConfig+ let inv =+ if getSegWit net+ then InvWitnessTx+ else InvTx+ MGetData (GetData (map (InvVector inv) xs)) `sendMessage` p checkTime :: (MonadReader BlockRead m, MonadUnliftIO m, MonadLoggerIO m) => m () checkTime =