Source file arrow_alt.ml

1
2
3
4
5
6
7
module type LAWS = sig
  type ('a, 'b) t
end

module For (A : Preface_specs.ARROW_ALT) :
  LAWS with type ('a, 'b) t := ('a, 'b) A.t =
  Arrow.For (A)