fix: [Fiber.both] should be concurrent (#32)

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
ocaml-dune · Apr 2, 2024 · 5e9bfce · 5e9bfce
1 parent 8ed9c35
commit 5e9bfce
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/CHANGES.md b/CHANGES.md
@@ -1,6 +1,8 @@
 # Unreleased
 
-- Add [Fiber.Lazy]
+- Make [Fiber.both] concurrent (#32, @rgrinberg)
+
+- Add [Fiber.Lazy] (#36, #rleshchinskiy)
 
 - Rename `Fiber.Pool.stop` to `Fiber.Pool.close` (#13, @rgrinberg)
 

diff --git a/fiber/src/core.ml b/fiber/src/core.ml
@@ -260,9 +260,9 @@ end
 open O
 
 let both a b =
-  let* x = a in
-  let* y = b in
-  return (x, y)
+  let+ x = a
+  and+ y = b in
+  x, y
 ;;
 
 let sequential_map l ~f =