diff options
Diffstat (limited to 'lib/future.ml')
| -rw-r--r-- | lib/future.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/future.ml b/lib/future.ml index b1b960718..9333089fb 100644 --- a/lib/future.ml +++ b/lib/future.ml @@ -29,11 +29,11 @@ let _ = Errors.register_handler (function (* Val is not necessarily a final state, so the computation restarts from the state stocked into Val *) type 'a comp = + | Delegated + | Dropped | Closure of (unit -> 'a) | Val of 'a * Dyn.t option | Exn of exn - | Delegated - | Dropped type 'a computation = 'a comp ref |