Skip to content
Browse files

Async manager polymorphic type

  • Loading branch information...
1 parent 067b10a commit 17d045c25e36fdfc79745982f09be8cc2253cca6 @VictorNicollet committed Jul 7, 2012
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)

0 comments on commit 17d045c

Please sign in to comment.
Something went wrong with that request. Please try again.