SCP-4758 Enabled mainnet in Marlowe Runtime.

input-output-hk · Dec 2, 2022 · 0c317c0 · 0c317c0
1 parent 82e72fe
commit 0c317c0
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/marlowe-runtime/src/Language/Marlowe/Runtime/Transaction/Server.hs b/marlowe-runtime/src/Language/Marlowe/Runtime/Transaction/Server.hs
@@ -41,7 +41,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(displayException), SomeException, catch)
-import Control.Monad (when)
 import Control.Monad.Base (MonadBase(..))
 import Control.Monad.IO.Class (MonadIO(liftIO))
 import Control.Monad.Trans.Class (lift)
@@ -96,7 +95,6 @@ import Network.Protocol.Driver (RunServer(..))
 import Network.Protocol.Job.Server
   (JobServer(..), ServerStAttach(..), ServerStAwait(..), ServerStCmd(..), ServerStInit(..), hoistAttach, hoistCmd)
 import Ouroboros.Consensus.BlockchainTime (SystemStart)
-import System.Exit (die)
 import System.IO (hPutStrLn, stderr)
 
 type RunTransactionServer m = RunServer m (JobServer MarloweTxCommand)
@@ -174,8 +172,6 @@ mkWorker WorkerDependencies{..} =
           eraHistory <- liftIO $ queryChainSync GetEraHistory
           protocolParameters <- liftIO $ queryChainSync GetProtocolParameters
           networkId <- liftIO $ queryChainSync GetNetworkId
-          liftIO $ when (networkId == Mainnet) do
-            die "Mainnet support is currently disabled."
           let
             solveConstraints :: Constraints.SolveConstraints
             solveConstraints =