cardano-rpc | Add UTxO RPC: submitTx method

Author: carbolymer

cardano-rpc/cardano-rpc.cabal

@@ -55,18 +55,22 @@ library
     Cardano.Rpc.Client
     Cardano.Rpc.Proto.Api.Node
     Cardano.Rpc.Proto.Api.UtxoRpc.Query
+    Cardano.Rpc.Proto.Api.UtxoRpc.Submit
     Cardano.Rpc.Server
     Cardano.Rpc.Server.Config
     Cardano.Rpc.Server.Internal.Env
     Cardano.Rpc.Server.Internal.Error
     Cardano.Rpc.Server.Internal.Monad
     Cardano.Rpc.Server.Internal.UtxoRpc.Query
+    Cardano.Rpc.Server.Internal.UtxoRpc.Submit
     Proto.Cardano.Rpc.Node
     Proto.Cardano.Rpc.Node_Fields
     Proto.Utxorpc.V1alpha.Cardano.Cardano
     Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields
     Proto.Utxorpc.V1alpha.Query.Query
     Proto.Utxorpc.V1alpha.Query.Query_Fields
+    Proto.Utxorpc.V1alpha.Submit.Submit
+    Proto.Utxorpc.V1alpha.Submit.Submit_Fields
 
   other-modules:
     Cardano.Rpc.Server.Internal.Orphans
@@ -80,6 +84,8 @@ library
     Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields
     Proto.Utxorpc.V1alpha.Query.Query
     Proto.Utxorpc.V1alpha.Query.Query_Fields
+    Proto.Utxorpc.V1alpha.Submit.Submit
+    Proto.Utxorpc.V1alpha.Submit.Submit_Fields
 
   build-depends:
     base,

cardano-rpc/src/Cardano/Rpc/Proto/Api/UtxoRpc/Submit.hs

@@ -0,0 +1,20 @@
+{-# LANGUAGE TypeFamilies #-}
+{-# OPTIONS_GHC -Wno-orphans #-}
+
+module Cardano.Rpc.Proto.Api.UtxoRpc.Submit
+  ( module Proto.Utxorpc.V1alpha.Submit.Submit
+  , module Proto.Utxorpc.V1alpha.Submit.Submit_Fields
+  )
+where
+
+import Network.GRPC.Common
+import Network.GRPC.Common.Protobuf
+
+import Proto.Utxorpc.V1alpha.Submit.Submit
+import Proto.Utxorpc.V1alpha.Submit.Submit_Fields
+
+type instance RequestMetadata (Protobuf SubmitService meth) = NoMetadata
+
+type instance ResponseInitialMetadata (Protobuf SubmitService meth) = NoMetadata
+
+type instance ResponseTrailingMetadata (Protobuf SubmitService meth) = NoMetadata

cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Submit.hs

@@ -0,0 +1,42 @@
+{-# LANGUAGE ConstraintKinds #-}
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DerivingVia #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE OverloadedLabels #-}
+{-# LANGUAGE QuantifiedConstraints #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+module Cardano.Rpc.Server.Internal.UtxoRpc.Submit
+  ( submitTxMethod
+  )
+where
+
+import Cardano.Api
+import Cardano.Api.Ledger qualified as L
+import Cardano.Rpc.Proto.Api.UtxoRpc.Submit qualified as UtxoRpc
+import Cardano.Rpc.Server.Internal.Error
+import Cardano.Rpc.Server.Internal.Monad
+import Cardano.Rpc.Server.Internal.Orphans ()
+
+import Cardano.Ledger.Api qualified as L
+import Cardano.Ledger.BaseTypes (WithOrigin (..))
+import Cardano.Ledger.Binary.Version qualified as L
+import Cardano.Ledger.Conway.Core qualified as L
+import Cardano.Ledger.Conway.PParams qualified as L
+import Cardano.Ledger.Plutus qualified as L
+
+import RIO hiding (toList)
+
+import Data.ByteString.Short qualified as SBS
+import Data.Map.Strict qualified as M
+import Data.ProtoLens (defMessage)
+import GHC.IsList (fromList, toList)
+import Network.GRPC.Spec
+
+submitTxMethod
+  :: MonadRpc e m
+  => Proto (UtxoRpc.SubmitTxRequest)
+  -> m (Proto (UtxoRpc.SubmitTxResponse))
+submitTxMethod req = pure $ defMessage