Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Async manager polymorphic type

  • Loading branch information...
commit 17d045c25e36fdfc79745982f09be8cc2253cca6 1 parent 067b10a
@VictorNicollet authored
Showing with 2 additions and 2 deletions.
  1. +1 −1  src/async.ml
  2. +1 −1  src/async.mli
View
2  src/async.ml
@@ -223,7 +223,7 @@ end
module Convenience = struct
- let foreach (manager:'c manager) name fmt iterator action =
+ let foreach (manager:'c # manager) name fmt iterator action =
let task, define = manager # declare name (Fmt.optional fmt) in
let () = define begin fun key ->
let! list, next = ohm $ iterator key in
View
2  src/async.mli
@@ -106,7 +106,7 @@ end
module Convenience : sig
val foreach :
- 'ctx manager
+ 'ctx # manager
-> string
-> 'key Fmt.fmt
-> ('key option -> ('ctx, 'key list * 'key option) Run.t)
Please sign in to comment.
Something went wrong with that request. Please try again.