Add transaction TTL to API payment type

lib/core/src/Cardano/Wallet/Api/Types.hs

@@ -67,6 +67,7 @@ module Cardano.Wallet.Api.Types
     , PostTransactionFeeData (..)
     , PostExternalTransactionData (..)
     , ApiTransaction (..)
+    , ApiTransactionTTL (..)
     , ApiWithdrawalPostData (..)
     , ApiFee (..)
     , ApiTxId (..)
@@ -566,17 +567,23 @@ data ByronWalletPutPassphraseData = ByronWalletPutPassphraseData
     , newPassphrase :: !(ApiT (Passphrase "raw"))
     } deriving (Eq, Generic, Show)
 
+newtype ApiTransactionTTL = ApiTransactionTTL
+    { seconds :: NominalDiffTime
+    } deriving (Eq, Generic, Show)
+
 data PostTransactionData (n :: NetworkDiscriminant) = PostTransactionData
     { payments :: !(NonEmpty (AddressAmount (ApiT Address, Proxy n)))
     , passphrase :: !(ApiT (Passphrase "lenient"))
     , withdrawal :: !(Maybe ApiWithdrawalPostData)
     , metadata :: !(Maybe (ApiT TxMetadata))
+    , ttl :: !(Maybe ApiTransactionTTL)
     } deriving (Eq, Generic, Show)
 
 data PostTransactionFeeData (n :: NetworkDiscriminant) = PostTransactionFeeData
     { payments :: (NonEmpty (AddressAmount (ApiT Address, Proxy n)))
     , withdrawal :: !(Maybe ApiWithdrawalPostData)
     , metadata :: !(Maybe (ApiT TxMetadata))
+    , ttl :: !(Maybe ApiTransactionTTL)
     } deriving (Eq, Generic, Show)
 
 newtype PostExternalTransactionData = PostExternalTransactionData
@@ -1466,6 +1473,11 @@ instance ToJSON ApiTxMetadata where
         Just (ApiT md) | txMetadataIsNull md -> Aeson.Null
         Just md -> toJSON md
 
+instance FromJSON ApiTransactionTTL where
+    parseJSON = genericParseJSON defaultRecordTypeOptions
+instance ToJSON ApiTransactionTTL where
+    toJSON = genericToJSON defaultRecordTypeOptions
+
 instance (DecodeAddress n , PassphraseMaxLength s , PassphraseMinLength s) => FromJSON (ApiWalletMigrationPostData n s)
   where
     parseJSON = genericParseJSON defaultRecordTypeOptions