Change the order of type vars for the sanity of type applications
commita919e69b89cd0da686ad753863138ebfb4a6122a
authorAdithya Kumar <adithya@composewell.com>
dateThu 18 Nov 2021, 14:36 (5 years ago)
parentcfcf26d
src/Streamly/Internal/Data/Stream/IsStream/Generate.hs+1−1
@@ -223,7 +223,7 @@ unfoldr step seed = fromStreamS (S.unfoldr step seed)
223223--
224224-- /Since: 0.1.0/
225225{-# INLINE_EARLY unfoldrM #-}
226−unfoldrM :: forall t m a b. (IsStream t, MonadAsync m) =>
226+unfoldrM :: forall t m b a. (IsStream t, MonadAsync m) =>
227227 (b -> m (Maybe (a, b))) -> b -> t m a
228228unfoldrM step = fromStream . K.unfoldrMWith (IsStream.toConsK (consM @t)) step
229229