@@ -504,7 +504,7 @@ postscanlM' fstep begin (Stream step state) =
504504 Skip s -> return $ Skip (s, acc)
505505 Stop -> return Stop
506506
507−{-# INLINE_LATE scanlM' #-}
507+{-# INLINE_NORMAL scanlM' #-}
508508scanlM' :: Monad m => (b -> a -> m b) -> b -> Stream m a -> Stream m b
509509scanlM' fstep begin s = begin `seq` (begin `cons` postscanlM' fstep begin s)
510510
@@ -673,7 +673,7 @@ zipWithM f (Stream stepa ta) (Stream stepb tb) = Stream step (ta, tb, Nothing)
673673 return $
674674 case r of
675675 Yield x sa' -> Skip (sa', sb, Just x)
676− Skip sa' -> Skip (sa', sb, Nothing)
676+ Skip sa' -> Skip (sa', sb, Nothing)
677677 Stop -> Stop
678678
679679 step gst (sa, sb, Just x) = do