add Cardano.Api.Link

cardano-foundation · Oct 12, 2021 · 7ea38bb · 7ea38bb
1 parent f9feeef
commit 7ea38bb
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/lib/core/src/Cardano/Wallet/Api/Link.hs b/lib/core/src/Cardano/Wallet/Api/Link.hs
@@ -83,6 +83,7 @@ module Cardano.Wallet.Api.Link
     , createUnsignedTransaction
     , signTransaction
     , balanceTransaction
+    , submitTransaction
 
       -- * StakePools
     , listStakePools
@@ -681,6 +682,21 @@ balanceTransaction 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
 --