Qualify import of replicateM to make ghc 8.10 happy

Author: geo2a

ouroboros-consensus-diffusion/test/consensus-test/Test/Consensus/GSM.hs

@@ -30,7 +30,7 @@ module Test.Consensus.GSM (tests) where
 import           Cardano.Network.Types (LedgerStateJudgement (..))
 import           Control.Concurrent.Class.MonadSTM.Strict.TVar.Checked
 import           Control.Exception (SomeException (..))
-import           Control.Monad (replicateM_)
+import qualified Control.Monad as Monad
 import           Control.Monad.Class.MonadAsync (async, poll,
                      uninterruptibleCancel)
 import           Control.Monad.Class.MonadFork (MonadFork, yield)
@@ -973,7 +973,7 @@ isIdling (PeerState {psIdling = Idling i}) = i
 -- Despite the crudeness, this seems much more compositional than invasive
 -- explicit synchronization.
 yieldSeveralTimes :: MonadFork m => m ()
-yieldSeveralTimes = replicateM_ 10 yield
+yieldSeveralTimes = Monad.replicateM_ 10 yield
 
 {-