Fix type error in hydra-tui

input-output-hk · Apr 17, 2024 · 7a7f679 · 7a7f679
1 parent 0e110b9
commit 7a7f679
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/hydra-tui/src/Hydra/Client.hs b/hydra-tui/src/Hydra/Client.hs
@@ -20,6 +20,7 @@ import Hydra.Cardano.Api.Prelude (
 import Hydra.Cardano.Api.Tx (signTx)
 import Hydra.Chain.CardanoClient (submitTransaction)
 import Hydra.Chain.Direct.Util (readFileTextEnvelopeThrow)
+import Hydra.Ledger.Cardano (Tx)
 import Hydra.Network (Host (Host, hostname, port))
 import Hydra.TUI.Options (Options (..))
 import Network.HTTP.Req (defaultHttpConfig, responseBody, runReq)
@@ -105,7 +106,7 @@ withClient Options{hydraNodeHost = Host{hostname, port}, cardanoSigningKey, card
       Req.req
         Req.POST
         (Req.http hostname Req./: "commit")
-        (Req.ReqBodyJson $ SimpleCommitRequest payload)
+        (Req.ReqBodyJson $ SimpleCommitRequest @Tx payload)
         Req.jsonResponse
         (Req.port $ fromIntegral port)