git.iko.soy/streamly
on master help sign in
Fix a bug in ParserK yield operation
fbb1c84Harendra Kumar
src/Streamly/Internal/Data/Parser/ParserK/Types.hs+1−1
compare with master
unifiedsplit
@@ -275,7 +275,7 @@ instance Functor m => Functor (Parser m a) where
275--
275--
276{-# INLINE yield #-}
276{-# INLINE yield #-}
277yield :: b -> Parser m a b
277yield :: b -> Parser m a b
278−yield b = MkParser (\lo st yieldk -> yieldk st (Done (lo + 1) b))
278+yield b = MkParser $ \lo st yieldk -> yieldk st (Done lo b)
279
279
280-- | 'Applicative' form of 'Streamly.Internal.Data.Parser.splitWith'. Note that
280-- | 'Applicative' form of 'Streamly.Internal.Data.Parser.splitWith'. Note that
281-- this operation does not fuse, use 'Streamly.Internal.Data.Parser.splitWith'
281-- this operation does not fuse, use 'Streamly.Internal.Data.Parser.splitWith'