cardano-testnet: small code simplification

IntersectMBO · Feb 12, 2025 · 18c0d3e · 18c0d3e
1 parent 1f7c3d8
commit 18c0d3e
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/cardano-testnet/src/Testnet/Runtime.hs b/cardano-testnet/src/Testnet/Runtime.hs
@@ -145,12 +145,10 @@ startNode tp node ipv4 port _testnetMagic nodeCmd = GHC.withFrozenCallStack $ do
 
     nodeProcess
       <- newExceptT . fmap (first ExecutableRelatedFailure) . try
-           $ procNode $ mconcat
-                         [ nodeCmd
-                         , [ "--socket-path", H.sprocketArgumentName sprocket
-                           , "--port", show port
-                           , "--host-addr", showIpv4Address ipv4
-                           ]
+           $ procNode $ nodeCmd ++
+                         [ "--socket-path", H.sprocketArgumentName sprocket
+                         , "--port", show port
+                         , "--host-addr", showIpv4Address ipv4
                          ]
 
     -- The port number if it is obtained using 'H.randomPort', it is firstly bound to and then closed. The closing