diff --git a/lib/core/src/Cardano/Wallet/Api/Link.hs b/lib/core/src/Cardano/Wallet/Api/Link.hs index 97d978d4c75..23de7aa4d28 100644 --- a/lib/core/src/Cardano/Wallet/Api/Link.hs +++ b/lib/core/src/Cardano/Wallet/Api/Link.hs @@ -84,6 +84,7 @@ module Cardano.Wallet.Api.Link , signTransaction , balanceTransaction , decodeTransaction + , submitTransaction -- * StakePools , listStakePools @@ -697,6 +698,21 @@ decodeTransaction w = discriminate @style where wid = w ^. typed @(ApiT WalletId) +submitTransaction + :: forall style w. + ( HasCallStack + , HasType (ApiT WalletId) w + , Discriminate style + ) + => w + -> (Method, Text) +submitTransaction w = discriminate @style + (endpoint @Api.SubmitTransaction (wid &)) + (notSupported "Byron") + (notSupported "Shared") + where + wid = w ^. typed @(ApiT WalletId) + -- -- Stake Pools --