Merge pull request #46 from blockfrost/srk/chores

Add missing lenses and `ToCapture` instances

blockfrost-api/src/Blockfrost/API/Cardano/Utils.hs

@@ -8,6 +8,7 @@ module Blockfrost.API.Cardano.Utils
 import Data.Text
 import Servant.API
 import Servant.API.Generic
+import Servant.Docs (DocCapture (..), ToCapture (..))
 
 import Blockfrost.Types.Cardano.Utils
 import Blockfrost.Types.Shared.CBOR
@@ -23,7 +24,7 @@ data UtilsAPI route =
         :> "xpub"
         :> Capture "xpub" Text
         :> Capture "role" Integer
-        :> Capture "Index" Integer
+        :> Capture "index" Integer
         :> Get '[JSON] DerivedAddress
 
     , _txEvaluate
@@ -48,3 +49,12 @@ data UtilsAPI route =
         :> Post '[JSON] TxEval
 
     } deriving (Generic)
+
+instance ToCapture (Capture "role" Integer) where
+  toCapture _ = DocCapture "role" "Account role"
+
+instance ToCapture (Capture "index" Integer) where
+  toCapture _ = DocCapture "index" "Address index"
+
+instance ToCapture (Capture "xpub" Text) where
+  toCapture _ = DocCapture "xpub" "Hexadecimal xpub"

blockfrost-api/src/Blockfrost/Lens.hs

@@ -19,8 +19,10 @@ makeFields ''AccountDelegation
 makeFields ''AccountRegistration
 makeFields ''AccountWithdrawal
 makeFields ''AccountMir
+makeFields ''AddressAssociatedTotal
 
 makeLensesWith blockfrostFieldRules ''AddressInfo
+makeLensesWith blockfrostFieldRules ''AddressInfoExtended
 makeFields ''AddressDetails
 makeFields ''AddressUtxo
 makeFields ''AddressTransaction
@@ -32,6 +34,7 @@ makeFields ''AssetMetadata
 makeFields ''AssetHistory
 makeFields ''AssetTransaction
 makeFields ''AssetAddress
+makeFields ''MetadataMediaFile
 
 makeFields ''Block
 
@@ -53,6 +56,7 @@ makeFieldsNoPrefix ''NetworkEraSummary
 makeFieldsNoPrefix ''NetworkEraBound
 makeFieldsNoPrefix ''NetworkEraParameters
 
+makeFields ''Pool
 makeFields ''PoolEpoch
 makeFields ''PoolInfo
 makeFields ''PoolHistory
@@ -77,6 +81,12 @@ makeFields ''TransactionMetaJSON
 makeFields ''TransactionMetaCBOR
 makeFields ''TransactionRedeemer
 
+makeFields ''DerivedAddress
+makeFields ''TxEval
+makeFields ''TxEvalBudget
+makeFields ''TxEvalResult
+makeFields ''TxEvalInput
+
 makeLensesWith blockfrostFieldRules ''IPFSAdd
 makeLensesWith blockfrostFieldRules ''IPFSPinChange
 makeLensesWith blockfrostFieldRules ''IPFSPin
@@ -88,3 +98,4 @@ makeFields ''NutlinkTicker
 -- * Shared
 makeFields ''BlockIndex
 makePrisms ''Amount
+makePrisms ''AmountExtended