haskoin-store-data 0.37.5 → 0.38.0
raw patch · 2 files changed
+18/−6 lines, 2 filesdep ~haskoin-coredep ~haskoin-store-data
Dependency ranges changed: haskoin-core, haskoin-store-data
Files
haskoin-store-data.cabal view
@@ -1,13 +1,13 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.33.0.+-- This file has been generated from package.yaml by hpack version 0.34.2. -- -- see: https://github.com/sol/hpack ----- hash: 75ab8c6fc699982fe02f94ac6f7ce20526806227eab0ae956352977ad45f0b74+-- hash: 61c2e648543193be4e66e44c30c32707b4f71a24d9bb1f7cc139401ddbb76caa name: haskoin-store-data-version: 0.37.5+version: 0.38.0 synopsis: Data for Haskoin Store description: Please see the README on GitHub at <https://github.com/haskoin/haskoin-store#readme> category: Bitcoin, Finance, Network@@ -41,7 +41,7 @@ , data-default >=0.7.1.1 , deepseq >=1.4.4.0 , hashable >=1.3.0.0- , haskoin-core >=0.13.6+ , haskoin-core >=0.17.0 , http-client >=0.6.4.1 , http-types >=0.12.3 , lens >=4.18.1@@ -73,8 +73,8 @@ , data-default >=0.7.1.1 , deepseq >=1.4.4.0 , hashable >=1.3.0.0- , haskoin-core >=0.13.6- , haskoin-store-data ==0.37.5+ , haskoin-core >=0.17.0+ , haskoin-store-data ==0.38.0 , hspec >=2.7.1 , http-client >=0.6.4.1 , http-types >=0.12.3
src/Haskoin/Store/WebCommon.hs view
@@ -66,6 +66,8 @@ newtype GetBlockHeightRaw = GetBlockHeightRaw HeightParam data GetBlockTime = GetBlockTime !TimeParam !NoTx newtype GetBlockTimeRaw = GetBlockTimeRaw TimeParam+data GetBlockMTP = GetBlockMTP !TimeParam !NoTx+newtype GetBlockMTPRaw = GetBlockMTPRaw TimeParam -- Transactions newtype GetTx = GetTx TxHash newtype GetTxs = GetTxs [TxHash]@@ -148,6 +150,16 @@ instance ApiResource GetBlockTimeRaw (Store.RawResult Block) where resourcePath _ = "/block/time/" <+> "/raw" queryParams (GetBlockTimeRaw u) = ([ParamBox u], [])+ captureParams _ = [ProxyBox (Proxy :: Proxy TimeParam)]++instance ApiResource GetBlockMTP Store.BlockData where+ resourcePath _ = ("/block/mtp/" <:>)+ queryParams (GetBlockMTP u t) = ([ParamBox u], noDefBox t)+ captureParams _ = [ProxyBox (Proxy :: Proxy TimeParam)]++instance ApiResource GetBlockMTPRaw (Store.RawResult Block) where+ resourcePath _ = "/block/mtp/" <+> "/raw"+ queryParams (GetBlockMTPRaw u) = ([ParamBox u], []) captureParams _ = [ProxyBox (Proxy :: Proxy TimeParam)] ------------------