@@ -362,7 +362,10 @@ lchunksOf n (Fold step1 initial1 extract1) (Fold step2 initial2 extract2) =
362 i1 <- initial1
362 i1 <- initial1
363 acc1 <- step1 i1 a
363 acc1 <- step1 i1 a
364 return $ Tuple3' 1 acc1 acc2
364 return $ Tuple3' 1 acc1 acc2
365− extract' (Tuple3' _ _ r) = extract2 r
365+ extract' (Tuple3' _ r1 r2) = do
367+ acc2 <- step2 r2 res
367-- | Group the input stream into windows of n second each and then fold each
370-- | Group the input stream into windows of n second each and then fold each
368-- group using the provided fold function.
371-- group using the provided fold function.