blockfrost-client-core 0.4.0.2 → 0.6.0.0
raw patch · 4 files changed
+20/−3 lines, 4 filesdep ~blockfrost-api
Dependency ranges changed: blockfrost-api
Files
- CHANGELOG.md +12/−0
- blockfrost-client-core.cabal +2/−2
- src/Blockfrost/Client/Core.hs +5/−0
- src/Blockfrost/Client/Pagination.hs +1/−1
CHANGELOG.md view
@@ -1,3 +1,15 @@+# Version [0.6.0.0](https://github.com/blockfrost/blockfrost-haskell/compare/v0.5.0.0...v0.6.0.0) (2022-08-31)++* Additions+ * HTTP Error `425`+ * `BlockfrostMempoolFullOrPinQueueFull` to `BlockfrostError` + * related to `/tx/submit` endpoint+ * or to `IPFS` pinning `/ipfs/pin/add/{IPFS_path}` endpoint+ * `Preprod` and `Preview` environments++* Changes+ * Order of results returned by `allPages` is now the same as returned by the API. Was unintentionally reversed before.+ # Version [0.4.0.2](https://github.com/blockfrost/blockfrost-haskell/compare/v0.4.0.1...client-core-0.4.0.2) (2022-06-06) * Allow blockfrost-api `0.5`
blockfrost-client-core.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.2 name: blockfrost-client-core-version: 0.4.0.2+version: 0.6.0.0 synopsis: blockfrost.io common client definitions / instances description: HasClient for our auth homepage: https://github.com/blockfrost/blockfrost-haskell@@ -44,7 +44,7 @@ , Blockfrost.Client.Tag , Blockfrost.Client.UserAgent build-depends: base >= 4.7 && < 5- , blockfrost-api >= 0.4+ , blockfrost-api >= 0.6 , aeson , bytestring , case-insensitive
src/Blockfrost/Client/Core.hs view
@@ -67,6 +67,8 @@ subdomainByEnv Ipfs = pure "ipfs" subdomainByEnv Mainnet = pure "cardano-mainnet" subdomainByEnv Testnet = pure "cardano-testnet"+subdomainByEnv Preprod = pure "cardano-preprod"+subdomainByEnv Preview = pure "cardano-preview" subdomainByEnv Localhost = Nothing -- | Read file according to BLOCKFROST_TOKEN_PATH environment variable name.@@ -91,6 +93,7 @@ | BlockfrostTokenMissing Text -- 403 | BlockfrostNotFound -- 404 | BlockfrostIPBanned -- 418+ | BlockfrostMempoolFullOrPinQueueFull -- 425 | BlockfrostUsageLimitReached -- 429 | BlockfrostFatal Text -- 500 | ServantClientError ClientError@@ -107,6 +110,8 @@ BlockfrostNotFound | s == status418 -> BlockfrostIPBanned+ | s == mkStatus 425 "Mempool Full (TXs) or Pin Queue Full (IPFS)" ->+ BlockfrostMempoolFullOrPinQueueFull | s == status429 -> BlockfrostUsageLimitReached | s == status500 ->
src/Blockfrost/Client/Pagination.hs view
@@ -41,7 +41,7 @@ xs | length xs < maxPageSize -> pure xs xs -> do next <- fetch (nextPage page')- pure $ next ++ xs+ pure $ xs ++ next fetch def instance HasClient m subApi => HasClient m (Pagination :> subApi) where