Fix deprecations in the benchmarks

composewell · Nov 12, 2024 · 3e7bda1 · 3e7bda1
1 parent f959abd
commit 3e7bda1
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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 =>