haskoin-store 0.32.2 → 0.32.3
raw patch · 3 files changed
+22/−24 lines, 3 filesdep ~haskoin-storedep ~haskoin-store-data
Dependency ranges changed: haskoin-store, haskoin-store-data
Files
- app/Main.hs +13/−15
- haskoin-store.cabal +6/−6
- src/Haskoin/Store/Logic.hs +3/−3
app/Main.hs view
@@ -136,7 +136,7 @@ defPeers :: [(String, Maybe Int)] defPeers = unsafePerformIO $- defEnv "PEERS" [] (mapM (eitherToMaybe . peerReader) . words)+ defEnv "PEER" [] (mapM (eitherToMaybe . peerReader) . words) {-# NOINLINE defPeers #-} defDebug :: Bool@@ -151,12 +151,12 @@ defWebLimits :: WebLimits defWebLimits = unsafePerformIO $ do- max_limit <- defEnv "MAX_LIMIT" (maxLimitCount def) readMaybe- max_full <- defEnv "MAX_FULL" (maxLimitFull def) readMaybe+ max_limit <- defEnv "MAX_LIMIT" (maxLimitCount def) readMaybe+ max_full <- defEnv "MAX_FULL" (maxLimitFull def) readMaybe max_offset <- defEnv "MAX_OFFSET" (maxLimitOffset def) readMaybe- def_limit <- defEnv "DEF_LIMIT" (maxLimitDefault def) readMaybe- max_gap <- defEnv "MAX_GAP" (maxLimitGap def) readMaybe- init_gap <- defEnv "INIT_GAP" (maxLimitInitialGap def) readMaybe+ def_limit <- defEnv "DEF_LIMIT" (maxLimitDefault def) readMaybe+ max_gap <- defEnv "MAX_GAP" (maxLimitGap def) readMaybe+ init_gap <- defEnv "INIT_GAP" (maxLimitInitialGap def) readMaybe return WebLimits { maxLimitCount = max_limit , maxLimitFull = max_full , maxLimitOffset = max_offset@@ -169,7 +169,7 @@ defWebTimeouts :: WebTimeouts defWebTimeouts = unsafePerformIO $ do block_timeout <- defEnv "BLOCK_TIMEOUT" (blockTimeout def) readMaybe- tx_timeout <- defEnv "TX_TIMEOUT" (txTimeout def) readMaybe+ tx_timeout <- defEnv "TX_TIMEOUT" (txTimeout def) readMaybe return WebTimeouts { txTimeout = tx_timeout , blockTimeout = block_timeout }@@ -229,15 +229,14 @@ strOption $ metavar "HOST" <> long "host"- <> help "Listen on network interface"+ <> help "Host to bind" <> showDefault <> value (configHost def) configPort <- option auto $- metavar "PORT"- <> long "listen"- <> short 'l'- <> help "Listening port"+ metavar "INT"+ <> long "port"+ <> help "REST API listening port" <> showDefault <> value (configPort def) configNetwork <-@@ -249,9 +248,8 @@ <> showDefault <> value (configNetwork def) configDiscover <-- switch $- long "auto"- <> short 'a'+ flag (configDiscover def) True $+ long "discover" <> help "Peer discovery" configPeers <- fmap (mappend defPeers) $
haskoin-store.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 7bd7b9b383e5678c1caf669403968fed075d15fea8244d54062c3e505eec6fcb+-- hash: b126ca9e0b24c8a0034623014cee613cf8f8493a1e4b2f3c9ea53899ed3996f1 name: haskoin-store-version: 0.32.2+version: 0.32.3 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@@ -53,7 +53,7 @@ , hashable >=1.3.0.0 , haskoin-core >=0.13.6 , haskoin-node >=0.14.1- , haskoin-store-data ==0.32.2+ , haskoin-store-data ==0.32.3 , hedis >=0.12.13 , http-types >=0.12.3 , monad-logger >=0.3.32@@ -96,7 +96,7 @@ , haskoin-core >=0.13.6 , haskoin-node >=0.14.1 , haskoin-store- , haskoin-store-data ==0.32.2+ , haskoin-store-data ==0.32.3 , monad-logger >=0.3.32 , mtl >=2.2.2 , nqe >=0.6.1@@ -135,8 +135,8 @@ , hashable >=1.3.0.0 , haskoin-core >=0.13.6 , haskoin-node >=0.14.1- , haskoin-store ==0.32.2- , haskoin-store-data ==0.32.2+ , haskoin-store ==0.32.3+ , haskoin-store-data ==0.32.3 , hedis >=0.12.13 , hspec >=2.7.1 , http-types >=0.12.3
src/Haskoin/Store/Logic.hs view
@@ -22,7 +22,7 @@ runExceptT, throwError) import Control.Monad.Logger (LoggingT (..), MonadLoggerIO (..), logDebugS,- logErrorS, logWarnS)+ logErrorS) import Control.Monad.Reader (ReaderT (ReaderT), runReaderT) import Control.Monad.Trans (lift) import qualified Data.ByteString as B@@ -460,8 +460,8 @@ Just _ -> deleteTx True rbfcheck th Nothing ->- $(logWarnS) "BlockStore" $- "Not found or deleted: " <> txHashToHex th+ $(logDebugS) "BlockStore" $+ "Not found or already deleted: " <> txHashToHex th deleteTx :: MonadImport m