cleanup

src/fib/fiber.ml

@@ -144,8 +144,6 @@ let add_child_ ~protect (self : _ t) (child : _ t) =
     ()
   done
 
-exception Cancelled of Exn_bt.t
-
 (** Key to access the current fiber. *)
 let k_current_fiber : any option Task_local_storage.key =
   Task_local_storage.new_key ~init:(fun () -> None) ()

src/fib/fiber.mli

@@ -9,10 +9,6 @@
       of structured concurrency
 *)
 
-(**/**)
-
-(**/**)
-
 type 'a t
 (** A fiber returning a value of type ['a]. *)
 
@@ -48,10 +44,6 @@ val yield : unit -> unit
 (** Yield control to the scheduler from the current fiber.
     @raise Failure if not run from inside a fiber. *)
 
-exception Cancelled of Exn_bt.t
-(** Exception for fibers that are cancelled. Polling points such
-    as {!yield} and {!await} will raise this if the fiber has been cancelled. *)
-
 val with_cancel_callback : _ t -> cancel_callback -> (unit -> 'a) -> 'a
 (** [with_cancel_callback fib cb (fun () -> <e>)] evaluates [e]
     in a scope in which, if the fiber [fib] is cancelled,