Merge pull request #34 from blockfrost/release/v0.7.1.0

Release/v0.7.1.0
blockfrost · Jan 3, 2023 · 4481993 · 4481993
2 parents bc8149f + 5919523
commit 4481993
Show file tree

Hide file tree

Showing 6 changed files with 23 additions and 6 deletions.
diff --git a/blockfrost-api/CHANGELOG.md b/blockfrost-api/CHANGELOG.md
@@ -1,3 +1,9 @@
+# Version [0.7.1.0](https://github.com/blockfrost/blockfrost-haskell/compare/v0.7.0.0...v0.7.010) (2023-01-03)
+
+* Additions
+  * `NetworkEraSummary`, `NetworkEraBound`, `NetworkEraParameters` types and `_networkEras` endpoint [#33](https://github.com/blockfrost/blockfrost-haskell/pull/33/)
+  * `ToSample ScriptHashList` instance
+
 # Version [0.7.0.0](https://github.com/blockfrost/blockfrost-haskell/compare/v0.6.0.0...v0.7.0.0) (2022-10-11)
 
 * Changes

diff --git a/blockfrost-api/blockfrost-api.cabal b/blockfrost-api/blockfrost-api.cabal
@@ -1,6 +1,6 @@
 cabal-version:       2.2
 name:                blockfrost-api
-version:             0.7.0.0
+version:             0.7.1.0
 synopsis:            API definitions for blockfrost.io
 description:         Core types and Servant API description
 homepage:            https://github.com/blockfrost/blockfrost-haskell

diff --git a/blockfrost-api/src/Blockfrost/Lens.hs b/blockfrost-api/src/Blockfrost/Lens.hs
@@ -47,8 +47,11 @@ makeFields ''TxMetaJSON
 makeFields ''TxMetaCBOR
 
 makeFields ''Network
-makeFields ''NetworkSupply
-makeFields ''NetworkStake
+makeFieldsNoPrefix ''NetworkSupply
+makeFieldsNoPrefix ''NetworkStake
+makeFieldsNoPrefix ''NetworkEraSummary
+makeFieldsNoPrefix ''NetworkEraBound
+makeFieldsNoPrefix ''NetworkEraParameters
 
 makeFields ''PoolEpoch
 makeFields ''PoolInfo

diff --git a/blockfrost-api/src/Blockfrost/Types/Cardano/Epochs.hs b/blockfrost-api/src/Blockfrost/Types/Cardano/Epochs.hs
@@ -157,7 +157,10 @@ instance FromJSON CostModels where
                (\(kLang, vParams) -> do
                  l <- parseJSON
                     $ toJSON
-                    $ (\(x:xs) -> Data.Char.toLower x:xs)
+                    $ (\lang -> case lang of
+                        [] -> fail "Absurd empty language in CostModels"
+                        (x:xs) -> Data.Char.toLower x:xs
+                      )
                     $ Data.Aeson.Key.toString kLang
                  ps <- parseParams vParams
                  pure (l, Data.Map.fromList ps)

diff --git a/blockfrost-client/CHANGELOG.md b/blockfrost-client/CHANGELOG.md
@@ -1,3 +1,8 @@
+# Version [0.7.1.0](https://github.com/blockfrost/blockfrost-haskell/compare/v0.7.0.0...v0.7.010) (2023-01-03)
+
+* Additions
+  * `getNetworkEras` query for `/network/eras` endpoint [#33](https://github.com/blockfrost/blockfrost-haskell/pull/33/)
+
 # Version [0.7.0.0](https://github.com/blockfrost/blockfrost-haskell/compare/v0.6.0.0...v0.7.0.0) (2022-10-11)
 
 * Changes

diff --git a/blockfrost-client/blockfrost-client.cabal b/blockfrost-client/blockfrost-client.cabal
@@ -1,6 +1,6 @@
 cabal-version:       2.2
 name:                blockfrost-client
-version:             0.7.0.0
+version:             0.7.1.0
 synopsis:            blockfrost.io basic client
 description:         Simple Blockfrost clients for use with transformers or mtl
 homepage:            https://github.com/blockfrost/blockfrost-haskell
@@ -64,7 +64,7 @@ library
                       , Blockfrost.Client.IPFS
                       , Blockfrost.Client.NutLink
    build-depends:       base                     >= 4.7 && < 5
-                      , blockfrost-api           ^>= 0.7
+                      , blockfrost-api           ^>= 0.7.1
                       , blockfrost-client-core   ^>= 0.6
                       , bytestring
                       , directory