Parameters
Signature
Sourcetype ('raw, 'glb, 'top) t = {raw : 'raw -> A.a;glb : 'glb -> A.a;top : 'top -> A.a;
} Sourceval register :
('raw, 'glb, 'top) Genarg.genarg_type ->
('raw, 'glb, 'top) t ->
unit Sourceval analyze : 'a Genarg.generic_argument -> A.a