From 85d455f29c5fe1063da4f54cc758eec2ce3f7e44 Mon Sep 17 00:00:00 2001
From: Pawel Jakubas <pawel.jakubas@iohk.io>
Date: Thu, 2 Dec 2021 17:11:13 +0100
Subject: [PATCH] add link for submitTransaction

---
 lib/core/src/Cardano/Wallet/Api/Link.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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
 --