Quickfix for the network tests to use the correct format for the publ…

…ished script addresses
cardano-scaling · Jan 13, 2025 · 52db713 · 52db713
1 parent e7252f8
commit 52db713
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/hydra-node/exe/hydra-node/Main.hs b/hydra-node/exe/hydra-node/Main.hs
@@ -2,8 +2,9 @@
 
 module Main where
 
-import Hydra.Prelude hiding (fromList)
+import Hydra.Prelude hiding (fromList, intercalate)
 
+import Data.ByteString (intercalate)
 import Hydra.Cardano.Api (
   serialiseToRawBytesHex,
  )
@@ -34,7 +35,7 @@ main = do
     (_, sk) <- readKeyPair (publishSigningKey opts)
     let PublishOptions{publishNetworkId = networkId, publishNodeSocket} = opts
     txIds <- publishHydraScripts networkId publishNodeSocket sk
-    mapM_ putBSLn (serialiseToRawBytesHex <$> txIds)
+    putBSLn $ intercalate "," (serialiseToRawBytesHex <$> txIds)
 
 identifyNode :: RunOptions -> RunOptions
 identifyNode opt@RunOptions{verbosity = Verbose "HydraNode", nodeId} = opt{verbosity = Verbose $ "HydraNode-" <> show nodeId}

diff --git a/hydra-node/hydra-node.cabal b/hydra-node/hydra-node.cabal
@@ -201,6 +201,7 @@ executable hydra-node
   hs-source-dirs: exe/hydra-node
   main-is:        Main.hs
   build-depends:
+    , bytestring
     , hydra-cardano-api
     , hydra-node
     , hydra-prelude