Util_yaml (upsycle-router.Util

type result_msg := Rresult.R.msg

type 'a to_yaml = 'a -> Yaml.value

type 'a of_yaml = Yaml.value -> ('a, result_msg) Stdlib.result

val to_yaml_noop : 'a to_yaml

val list_parser : 
  ('a -> ('b, [> `Msg of 'd ] as 'c) Stdlib.result) ->
  'd ->
  [> `A of 'a list ] ->
  ('b list, 'c) Stdlib.result

val strings_result : 
  ?msg:string ->
  Yaml.value list ->
  (string list, result_msg) Stdlib.result

val string_result : 
  ?msg:string ->
  Yaml.value ->
  (string, result_msg) Stdlib.result