TypeRexからこの種のレイアウトを取得する方法はありますか?
let alert ctx x =
let open Alert in
Printf.printf "...Alert: type = %s, status = %s\n"
(Type.to_string (type_ x)) (status x);
flush stdout
代わりにこれで終わり、私には最適ではないように見えます
let alert ctx x =
let open Alert in
Printf.printf "...Alert: type = %s, status = %s\n"
(Type.to_string (type_ x)) (status x);
flush stdout