Fix a bug in ParserK.yield.
commit03f05ed340148980e976bcf5d3543edb6225164b
authorpranaysashank <pranaysashank@composewell.com>
dateMon 13 Jul 2020, 18:04 (6 years ago)
parent9d653d0
src/Streamly/Internal/Data/Parser/ParserK/Types.hs+1−1
@@ -52,7 +52,7 @@ instance Functor m => Functor (Parser m a) where
5252--
5353{-# INLINE yield #-}
5454yield :: b -> Parser m a b
55−yield b = MkParser (\_ yieldk -> yieldk (Z.nil, Right b))
55+yield b = MkParser (\inp yieldk -> yieldk (inp, Right b))
5656
5757-------------------------------------------------------------------------------
5858-- Sequential applicative