View on GitHub
File Changes
addTx :: Tx -> ClientM NoContent
randomTx :: ClientM Tx
(healthcheck, addTx, getCurrentSlot, randomTx) =
-
    (healthcheck_, addTx_, getCurrentSlot_, randomTx)
+
    (healthcheck_, addTx_, getCurrentSlot_, randomTx_)
  where
-
    healthcheck_ :<|> addTx_ :<|> getCurrentSlot_ :<|> randomTx = client (Proxy @API)
+
    healthcheck_ :<|> addTx_ :<|> getCurrentSlot_ :<|> randomTx_ = client (Proxy @API)
    
main :: IO ()
main = do
    MockServerConfig
        { mscPort = 8082
        , mscSlotLength = 5
-
        , mscRandomTxInterval = Just 8
+
        , mscRandomTxInterval = Just 20
        }

                      
healthcheck :: Monad m => m NoContent
  , runSimpleLog
  ) where

                      
-
import           Control.Monad.Freer        (Eff, LastMember, Member)
+
import           Control.Monad.Freer        (Eff, Member)
import qualified Control.Monad.Freer        as Eff
-
import           Control.Monad.Freer.State  (State)
-
import qualified Control.Monad.Freer.State  as Eff
-
import           Control.Monad.Freer.Writer (Writer)
-
import qualified Control.Monad.Freer.Writer as Eff
-
import           Control.Monad.IO.Class     (MonadIO, liftIO)
+
import           Control.Monad.IO.Class     (MonadIO)
import           Control.Monad.Logger       (MonadLogger, logDebugN, logInfoN, runStdoutLoggingT)
import           Data.Text                  (Text)

                      
    ) where

                      
import           Data.Aeson                 (FromJSON, ToJSON)
-
import           Data.Text                  (Text)
import           GHC.Generics               (Generic)
import           Plutus.SCB.Events.Contract as Events.Contract
import           Plutus.SCB.Events.Node     as Events.Node