Mention correct function name in parser error

Author: harendra-kumar

core/src/Streamly/Internal/Data/Parser.hs

@@ -2153,11 +2153,11 @@ groupByRollingEither
 -- Right "string"
 --
 -- >>> Stream.parsePos (Parser.listEqBy (==) "mismatch") $ Stream.fromList "match"
--- Left (ParseErrorPos 2 "streamEqBy: mismtach occurred")
+-- Left (ParseErrorPos 2 "listEqBy: mismatch occurred")
 --
 {-# INLINE listEqBy #-}
 listEqBy :: Monad m => (a -> a -> Bool) -> [a] -> Parser a m [a]
-listEqBy cmp xs = streamEqByInternal cmp (D.fromList xs) *> fromPure xs
+listEqBy cmp xs = streamEqByInternal "listEqBy" cmp (D.fromList xs) *> fromPure xs
 {-
 listEqBy cmp str = Parser step initial extract
 
@@ -2188,8 +2188,8 @@ listEqBy cmp str = Parser step initial extract
 -}
 
 {-# INLINE streamEqByInternal #-}
-streamEqByInternal :: Monad m => (a -> a -> Bool) -> D.Stream m a -> Parser a m ()
-streamEqByInternal cmp (D.Stream sstep state) = Parser step initial extract
+streamEqByInternal :: Monad m => String -> (a -> a -> Bool) -> D.Stream m a -> Parser a m ()
+streamEqByInternal fname cmp (D.Stream sstep state) = Parser step initial extract
 
     where
 
@@ -2210,19 +2210,19 @@ streamEqByInternal cmp (D.Stream sstep state) = Parser step initial extract
                     D.Yield x1 s -> SContinue 1 (Just' x1, s)
                     D.Stop -> SDone 1 ()
                     D.Skip s -> SContinue 0 (Nothing', s)
-          else return $ SError "streamEqBy: mismtach occurred"
+          else return $ SError (fname ++ ": mismatch occurred")
     step (Nothing', st) a = do
         r <- sstep defState st
         return
             $ case r of
                 D.Yield x s -> do
                     if x `cmp` a
                     then SContinue 1 (Nothing', s)
-                    else SError "streamEqBy: mismatch occurred"
+                    else SError (fname ++ ": mismatch occurred")
                 D.Stop -> SDone 0 ()
                 D.Skip s -> SContinue 0 (Nothing', s)
 
-    extract _ = return $ FError "streamEqBy: end of input"
+    extract _ = return $ FError (fname ++ ": end of input")
 
 -- | Like 'listEqBy' but uses a stream instead of a list and does not return
 -- the stream.
@@ -2231,7 +2231,7 @@ streamEqByInternal cmp (D.Stream sstep state) = Parser step initial extract
 streamEqBy :: Monad m => (a -> a -> Bool) -> D.Stream m a -> Parser a m ()
 -- XXX Somehow composing this with "*>" is much faster on the microbenchmark.
 -- Need to investigate why.
-streamEqBy cmp stream = streamEqByInternal cmp stream *> fromPure ()
+streamEqBy cmp stream = streamEqByInternal "streamEqBy" cmp stream *> fromPure ()
 
 -- Rename to "list".
 -- | Match the input sequence with the supplied list and return it if