Module Create.Variant
type 'w t
=
{
f : a b at bt. match_:('at -> ('a, 'bt) Base.Either.t) -> construct:('b -> 'bt) -> ('a, 'b, 'w) Accessor__.Import.Hk.t2 -> ('at, 'bt, 'w) Accessor__.Import.Hk.t2;
}
Create.Variant
type 'w t
=
{
f : a b at bt. match_:('at -> ('a, 'bt) Base.Either.t) -> construct:('b -> 'bt) -> ('a, 'b, 'w) Accessor__.Import.Hk.t2 -> ('at, 'bt, 'w) Accessor__.Import.Hk.t2; |
}