From 2780b156eb40f193a2af284253fb0d901defe444 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 27 Aug 2024 15:03:40 -0400
Subject: [PATCH] detail in fut

---
 src/core/fut.ml  | 1 +
 src/core/fut.mli | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/src/core/fut.ml b/src/core/fut.ml
index cc8ee076..fe3c6b3b 100644
--- a/src/core/fut.ml
+++ b/src/core/fut.ml
@@ -442,4 +442,5 @@ module Infix_local = Infix [@@deprecated "use Infix"]
 
 module Private_ = struct
   let[@inline] unsafe_promise_of_fut x = x
+  let[@inline] as_computation self = self.st
 end
diff --git a/src/core/fut.mli b/src/core/fut.mli
index 243afad0..46c331ad 100644
--- a/src/core/fut.mli
+++ b/src/core/fut.mli
@@ -285,6 +285,8 @@ module Infix_local = Infix
 module Private_ : sig
   val unsafe_promise_of_fut : 'a t -> 'a promise
   (** please do not use *)
+
+  val as_computation : 'a t -> 'a Picos.Computation.t
 end
 
 (**/**)