Minor fixes to make cabal build all

input-output-hk · Apr 17, 2024 · 0a88086 · 0a88086
1 parent 349e4fa
commit 0a88086
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/hydra-node/bench/tx-cost/TxCost.hs b/hydra-node/bench/tx-cost/TxCost.hs
@@ -113,8 +113,7 @@ computeCommitCost = do
     (cctx, stInitial) <- genStInitial ctx
     let InitialState{headId} = stInitial
         knownUTxO = getKnownUTxO stInitial <> getKnownUTxO cctx
-        -- TODO: revisit
-        blueprintTx = undefined
+    blueprintTx <- arbitrary
     pure (commit cctx headId knownUTxO utxo blueprintTx, knownUTxO)
 
 computeCollectComCost :: IO [(NumParties, Natural, TxSize, MemUnit, CpuUnit, Coin)]

diff --git a/hydra-tui/src/Hydra/Client.hs b/hydra-tui/src/Hydra/Client.hs
@@ -10,16 +10,17 @@ import Control.Concurrent.Class.MonadSTM (newTBQueueIO, readTBQueue, writeTBQueu
 import Control.Exception (Handler (Handler), IOException, catches)
 import Data.Aeson (eitherDecodeStrict, encode)
 import Hydra.API.ClientInput (ClientInput)
-import Hydra.API.HTTPServer (DraftCommitTxRequest (..), DraftCommitTxResponse (..), TxOutWithWitness (TxOutWithWitness))
+import Hydra.API.HTTPServer (DraftCommitTxRequest (..), DraftCommitTxResponse (..))
 import Hydra.API.ServerOutput (TimedServerOutput)
-import Hydra.Cardano.Api (
+import Hydra.Cardano.Api.Prelude (
   AsType (AsPaymentKey, AsSigningKey),
   PaymentKey,
   SigningKey,
-  signTx,
  )
+import Hydra.Cardano.Api.Tx (signTx)
 import Hydra.Chain.CardanoClient (submitTransaction)
 import Hydra.Chain.Direct.Util (readFileTextEnvelopeThrow)
+import Hydra.Ledger.Cardano (TxOutWithWitness (..))
 import Hydra.Network (Host (Host, hostname, port))
 import Hydra.TUI.Options (Options (..))
 import Network.HTTP.Req (defaultHttpConfig, responseBody, runReq)