Is there a way to get this kind of layout from 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
In the end, I get this instead of what seems to me suboptimal
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
source
share