Use new ParserD.Step constructors.

Author: pranaysashank

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

@@ -476,27 +476,27 @@ sepBy (Fold fstep finitial fextract) (Parser pstep pinitial pextract)
     step (SepParseA cnt fst pst) a = do
         ps <- pstep pst a
         case ps of
-            Yield n s -> return $ Yield n (SepParseA 0 fst s)
-            Skip n s -> return $ Skip n (SepParseA (cnt + 1 - n) fst s)
-            Stop n b -> do
+            Partial n s -> return $ Partial n (SepParseA 0 fst s)
+            Continue n s -> return $ Continue n (SepParseA (cnt + 1 - n) fst s)
+            Done n b -> do
                 pseps <- psepinitial
                 fs <- fstep fst b
-                return $ Skip n (SepParseSep 0 fs pseps)
+                return $ Continue n (SepParseSep 0 fs pseps)
             Error _ -> do
                 c <- fextract fst
-                return $ Stop (cnt + 1) c
+                return $ Done (cnt + 1) c
 
     step (SepParseSep cnt fst psepst) a = do
         pseps <- psepstep psepst a
         case pseps of
-            Yield n s -> return $ Skip n (SepParseSep (cnt + 1 - n) fst s)
-            Skip n s -> return $ Skip n (SepParseSep (cnt + 1 - n) fst s)
-            Stop n _ -> do
+            Partial n s -> return $ Continue n (SepParseSep (cnt + 1 - n) fst s)
+            Continue n s -> return $ Continue n (SepParseSep (cnt + 1 - n) fst s)
+            Done n _ -> do
                 ps <- pinitial
-                return $ Skip n (SepParseA (cnt + 1) fst ps)
+                return $ Continue n (SepParseA (cnt + 1) fst ps)
             Error _ -> do
                 c <- fextract fst
-                return $ Stop (cnt + 1) c
+                return $ Done (cnt + 1) c
 
     extract (SepParseA _ fs sa) = do
         r <- try $ pextract sa