diff --git a/benchmark/Streamly/Benchmark/Data/ParserK.hs b/benchmark/Streamly/Benchmark/Data/ParserK.hs
index cc44c7c75e..bc53d5c761 100644
--- a/benchmark/Streamly/Benchmark/Data/ParserK.hs
+++ b/benchmark/Streamly/Benchmark/Data/ParserK.hs
@@ -230,11 +230,11 @@ takeWhileFailD predicate (Fold fstep finitial _ ffinal) =
             fres <- fstep s a
             return
                 $ case fres of
-                      Fold.Partial s1 -> Partial 0 s1
-                      Fold.Done b -> Done 0 b
+                      Fold.Partial s1 -> SPartial 1 s1
+                      Fold.Done b -> SDone 1 b
         else return $ Error "fail"
 
-    extract s = fmap (Done 0) (ffinal s)
+    extract s = fmap (SDone 1) (ffinal s)
 
 {-# INLINE takeWhileFail #-}
 takeWhileFail :: CONSTRAINT =>