@@ -504,7 +504,7 @@ postscanlM' fstep begin (Stream step state) =
504 Skip s -> return $ Skip (s, acc)
504 Skip s -> return $ Skip (s, acc)
505 Stop -> return Stop
505 Stop -> return Stop
507−{-# INLINE_LATE scanlM' #-}
507+{-# INLINE_NORMAL scanlM' #-}
508scanlM' :: Monad m => (b -> a -> m b) -> b -> Stream m a -> Stream m b
508scanlM' :: Monad m => (b -> a -> m b) -> b -> Stream m a -> Stream m b
509scanlM' fstep begin s = begin `seq` (begin `cons` postscanlM' fstep begin s)
509scanlM' fstep begin s = begin `seq` (begin `cons` postscanlM' fstep begin s)
@@ -673,7 +673,7 @@ zipWithM f (Stream stepa ta) (Stream stepb tb) = Stream step (ta, tb, Nothing)
674 case r of
674 case r of
675 Yield x sa' -> Skip (sa', sb, Just x)
675 Yield x sa' -> Skip (sa', sb, Just x)
676− Skip sa' -> Skip (sa', sb, Nothing)
676+ Skip sa' -> Skip (sa', sb, Nothing)
677 Stop -> Stop
677 Stop -> Stop
679 step gst (sa, sb, Just x) = do
679 step gst (sa, sb, Just x) = do