add link for submitTransaction

cardano-foundation · Jan 17, 2022 · 85d455f · 85d455f
1 parent df81038
commit 85d455f
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
@@ -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
 --