diff --git a/marlowe-runtime/marlowe-tx/Main.hs b/marlowe-runtime/marlowe-tx/Main.hs
index f6df8923e3..cdbb5742ff 100644
--- a/marlowe-runtime/marlowe-tx/Main.hs
+++ b/marlowe-runtime/marlowe-tx/Main.hs
@@ -123,7 +123,6 @@ run Options{..} = withSocketsDo do
     let
       solveConstraints :: SolveConstraints
       solveConstraints = Constraints.solveConstraints
-        networkId
         systemStart
         eraHistory
         protocolParameters