Disable mainnet

input-output-hk · Sep 30, 2022 · 4df2f1b · 4df2f1b
1 parent 97f3850
commit 4df2f1b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/marlowe-runtime/marlowe-tx/Main.hs b/marlowe-runtime/marlowe-tx/Main.hs
@@ -119,6 +119,8 @@ run Options{..} = withSocketsDo do
     protocolParameters <- queryChainSync GetProtocolParameters
     slotConfig <- queryChainSync GetSlotConfig
     networkId <- queryChainSync GetNetworkId
+    when (networkId == Mainnet) do
+      die "Mainnet support is currently disabled."
     let
       solveConstraints :: forall era v. SolveConstraints era v
       solveConstraints = Constraints.solveConstraints