add ApiConstructTransaction and ApiTxInputExtended

cardano-foundation · Jun 10, 2021 · a7f44a3 · a7f44a3
1 parent c13f778
commit a7f44a3
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 1 deletion.
diff --git a/lib/core-integration/src/Test/Integration/Scenario/API/Byron/Migrations.hs b/lib/core-integration/src/Test/Integration/Scenario/API/Byron/Migrations.hs
@@ -22,6 +22,7 @@ import Cardano.Wallet.Api.Types
     ( ApiByronWallet
     , ApiT (..)
     , ApiTransaction
+    , ApiTxInput (source)
     , ApiUtxoStatistics
     , ApiWallet
     , ApiWalletMigrationPlan (..)
@@ -588,7 +589,7 @@ spec = describe "BYRON_MIGRATIONS" $ do
         inputBalance = fromIntegral
             . sum
             . fmap (view (#amount . #getQuantity))
-            . mapMaybe ApiTypes.source
+            . mapMaybe source
             . view #inputs
         outputBalance = fromIntegral
             . sum

diff --git a/lib/core/src/Cardano/Wallet/Api/Types.hs b/lib/core/src/Cardano/Wallet/Api/Types.hs
@@ -140,6 +140,8 @@ module Cardano.Wallet.Api.Types
     , KeyFormat (..)
     , ApiPostAccountKeyData (..)
     , ApiPostAccountKeyDataWithPurpose (..)
+    , ApiConstructTransaction (..)
+    , ApiTxInputExtended (..)
 
     -- * API Types (Byron)
     , ApiByronWallet (..)
@@ -840,7 +842,21 @@ newtype ApiBytesT (base :: Base) bs = ApiBytesT { getApiBytesT :: bs }
 
 data ApiSerialisedTransaction
     = ApiSerialisedTransaction (ApiBytesT 'Base64 SerialisedTx)
+    deriving (Eq, Generic, Show)
+    deriving anyclass NFData
+
+data ApiTxInputExtended (n :: NetworkDiscriminant) = ApiTxInputExtended
+    { source :: !(Maybe (AddressAmount (ApiT Address, Proxy n)))
+    , input :: !(ApiT TxIn)
+    , derivationPath :: !(NonEmpty (ApiT DerivationIndex))
+    } deriving (Eq, Generic, Show)
+      deriving anyclass NFData
 
+data ApiConstructTransaction (n :: NetworkDiscriminant) = ApiConstructTransaction
+    { serializedTransaction :: !ApiSerialisedTransaction
+    , inputs :: [ApiTxInputExtended n]
+    } deriving (Eq, Generic, Show)
+      deriving anyclass NFData
 
 data PostTransactionData (n :: NetworkDiscriminant) = PostTransactionData
     { payments :: !(NonEmpty (AddressAmount (ApiT Address, Proxy n)))