module SharedCounter: functor (Info : sig val name : stringend) -> Counter
functor (
Info
:
sig
val name : string
string
end) -> Counter
end
) ->
Counter
Creates a counter that is shared among all projects, but which is marshalling-compliant.
sig val name : string end
val next : unit -> int
unit -> int
Increments the counter and returns a fresh value
val get : unit -> int
val self : State.t
State.t