Statement.Trymodule CatchClause : sig ... endtype ('M, 'T) t = {block : 'M * ('M, 'T) Block.t;handler : ('M, 'T) CatchClause.t option;finalizer : ('M * ('M, 'T) Block.t) option;comments : ('M, unit) Syntax.t option;}val pp :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
Format.formatter ->
('M, 'T) t ->
unitval show :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
('M, 'T) t ->
string