Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

result and behavior are covariant

  • Loading branch information...
commit e22f18a09888d69ee2912d328fde5e9c301c63a9 1 parent 6996e97
Jake Donham authored
4 src/froc/froc.mli
View
@@ -90,14 +90,14 @@
*)
(** Type of values of type ['a] or exception. *)
-type 'a result = Value of 'a | Fail of exn
+type +'a result = Value of 'a | Fail of exn
type cancel
(** Type of handles to listener registrations. *)
(** {2 Behaviors} *)
-type 'a behavior
+type +'a behavior
(** Type of behaviors of type ['a]. *)
val return : 'a -> 'a behavior
2  src/froc/froc_ddg.ml
View
@@ -35,7 +35,7 @@ let set_debug f =
let handle_exn = ref raise
let set_exn_handler h = handle_exn := h
-type 'a result = Value of 'a | Fail of exn
+type +'a result = Value of 'a | Fail of exn
type 'a changeable = {
id : int;
2  src/froc/froc_ddg.mli
View
@@ -30,7 +30,7 @@ val make_cancel : (unit -> unit) -> cancel
val no_cancel : cancel
val cancel : cancel -> unit
-type 'a result = Value of 'a | Fail of exn
+type +'a result = Value of 'a | Fail of exn
val changeable : ?eq:('a -> 'a -> bool) -> 'a -> 'a t * 'a u
val return : 'a -> 'a t
Please sign in to comment.
Something went wrong with that request. Please try again.