Skip to content

Commit fd34f66

Browse files
committed
Breaking: Drop the signature Backoff
One can instead write `module type of Backoff` to get a signature for the `Backoff` module.
1 parent 7c0e22e commit fd34f66

File tree

2 files changed

+2
-7
lines changed

2 files changed

+2
-7
lines changed

src/kcas.ml

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,8 +4,6 @@ Copyright (c) 2017, Nicolas ASSOUAD <nicolas.assouad@ens.fr>
44
########
55
*)
66

7-
module type Backoff = Backoff.S
8-
97
module Backoff = Backoff.M
108

119
module Id = struct

src/kcas.mli

Lines changed: 2 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -59,9 +59,8 @@ val incr : int ref -> unit
5959
val decr : int ref -> unit
6060
(** [decr r] atomically decrements [r] *)
6161

62-
(** {2 Backoff}
63-
Suspend domains with exponential backoff. *)
64-
module type Backoff = sig
62+
(** Suspend domains with exponential backoff. *)
63+
module Backoff : sig
6564
type t
6665
(** The type of backoff value *)
6766

@@ -79,5 +78,3 @@ module type Backoff = sig
7978
val reset : t -> unit
8079
(** Resets the backoff clock to 1 millisecond. *)
8180
end
82-
83-
module Backoff : Backoff

0 commit comments

Comments
 (0)