Merge #3497

3497: Multinode Diffusion Simulation r=bolt12 a=bolt12



Co-authored-by: Armando Santos <[email protected]>

Author: iohk-bors[bot]

io-classes/src/Control/Monad/Class/MonadAsync.hs

@@ -210,9 +210,7 @@ newtype Concurrently m a = Concurrently { runConcurrently :: m a }
 instance Functor m => Functor (Concurrently m) where
     fmap f (Concurrently ma) = Concurrently (fmap f ma)
 
-instance ( Applicative m
-         , MonadAsync m
-         ) => Applicative (Concurrently m) where
+instance MonadAsync m => Applicative (Concurrently m) where
     pure = Concurrently . pure
 
     Concurrently fn <*> Concurrently as =
@@ -221,8 +219,7 @@ instance ( Applicative m
         `fmap`
         concurrently fn as
 
-instance ( Alternative m
-         , MonadAsync  m
+instance ( MonadAsync  m
          , MonadTimer  m
          ) => Alternative (Concurrently m) where
     empty = Concurrently $ forever (threadDelay 86400)