@@ -145,12 +145,6 @@ instance (Monoid a, MonadAsync m) => Monoid (AsyncT m a) where
145145 mappend x y = mappend <$> x <*> y
146146 mempty = return mempty
147147
148−-- scatter
149−{-# SPECIALIZE each :: [a] -> AsyncT IO a #-}
150−each :: (MonadIO m, MonadBaseControl IO m, MonadThrow m)
151− => [a] -> AsyncT m a
152−each xs = foldr (<|>) empty $ map return xs
153−
154148------------------------------------------------------------------------------
155149-- Num
156150------------------------------------------------------------------------------
@@ -283,6 +277,12 @@ async action = AsyncT $ runAsyncTask True (runAsyncT action)
283277makeAsync :: MonadAsync m => ((a -> m ()) -> m ()) -> AsyncT m a
284278makeAsync = AsyncT . makeCont
285279
280+-- scatter
281+{-# SPECIALIZE each :: [a] -> AsyncT IO a #-}
282+each :: (MonadIO m, MonadBaseControl IO m, MonadThrow m)
283+ => [a] -> AsyncT m a
284+each xs = foldr (<|>) empty $ map return xs
285+
286286------------------------------------------------------------------------------
287287-- Controlling thread quota
288288------------------------------------------------------------------------------