SCP-4758 Enabled mainnet in Marlowe Runtime.

input-output-hk · Feb 6, 2023 · 1410938 · 1410938
1 parent 43a14a1
commit 1410938
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/marlowe-runtime/tx/Language/Marlowe/Runtime/Transaction/Server.hs b/marlowe-runtime/tx/Language/Marlowe/Runtime/Transaction/Server.hs
@@ -40,7 +40,6 @@ import Control.Concurrent.Component
 import Control.Concurrent.STM (STM, atomically, modifyTVar, newEmptyTMVar, newTVar, putTMVar, readTMVar, readTVar)
 import Control.Error.Util (hoistMaybe, note, noteT)
 import Control.Exception (Exception(..))
-import Control.Monad (when)
 import Control.Monad.IO.Class (MonadIO(liftIO))
 import Control.Monad.Trans.Class (lift)
 import Control.Monad.Trans.Except (ExceptT(..), except, runExceptT, withExceptT)
@@ -96,7 +95,6 @@ import Network.Protocol.Job.Server
   (JobServer(..), ServerStAttach(..), ServerStAwait(..), ServerStCmd(..), ServerStInit(..), hoistAttach, hoistCmd)
 import Observe.Event (Event, EventBackend, addField, subEventBackend, withEvent, withSubEvent)
 import Ouroboros.Consensus.BlockchainTime (SystemStart)
-import System.Exit (die)
 
 data TransactionServerSelector f where
   Exec :: TransactionServerSelector ExecField
@@ -171,8 +169,6 @@ worker = component_ \WorkerDependencies{..} -> do
           addField ev $ ProtocolParameters protocolParameters
           networkId <- liftIO $ queryChainSync GetNetworkId
           addField ev $ NetworkId networkId
-          liftIO $ when (networkId == Mainnet) do
-            die "Mainnet support is currently disabled."
           let
             solveConstraints :: Constraints.SolveConstraints
             solveConstraints =