fp-validate-config-5.fs

let makeConfig (url: string) (name: string) (age: int) =
  let nameResult = validateName name
  let urlResult = validateUrl url
  let ageResult = validateAge age

  match nameResult, urlResult, ageResult with
  | Ok name, Ok url, Ok age -> Ok { Name = name; Url = url; Age = age }
  | Error e1, Error e2, Error e3 -> Error (e1 @ e2 @ e3)
  | Error e1, Error e2, _ -> Error (e1 @ e2)
  | Error e1, _, Error e2 -> Error (e1 @ e2)
  | _, Error e1, Error e2 -> Error (e1 @ e2)
  | Error e, _ , _ -> Error e
  | _, Error e, _ -> Error e
  | _, _, Error e -> Error e