From 7a7f6797f8d2bced7a3791e80d664c136f881068 Mon Sep 17 00:00:00 2001 From: Sasha Bogicevic Date: Tue, 16 Apr 2024 17:23:49 +0200 Subject: [PATCH] Fix type error in hydra-tui --- hydra-tui/src/Hydra/Client.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/hydra-tui/src/Hydra/Client.hs b/hydra-tui/src/Hydra/Client.hs index 9c3c8abf267..66256d4f849 100644 --- 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)