Fix build for pre ghc-8.2 compilers
commit551f6c3284687cd9f8fd540898fdd66a70141de5
authorHarendra Kumar <harendra.kumar@gmail.com>
dateSat 14 Oct 2017, 18:49 (9 years ago)
parent652d466
src/Asyncly/AsyncT.hs+1−1
@@ -744,7 +744,7 @@ newtype ZipSerial m a = ZipSerial {getZipSerial :: AsyncT m a}
744744
745745instance MonadAsync m => Applicative (ZipSerial m) where
746746 pure a = ZipSerial $ cycle1 (pure a)
747− liftA2 f (ZipSerial xs) (ZipSerial ys) = ZipSerial (zipWith f xs ys)
747+ (ZipSerial xs) <*> (ZipSerial ys) = ZipSerial (zipWith id xs ys)
748748
749749------------------------------------------------------------------------------
750750-- Utilities