Source file Error.ml

module Builder = Ppxlib.Ast_builder.Default

let make ~description ~examples ~link =
  let examples =
    match examples with
    | Some examples ->
      Printf.sprintf "\n\nExample:\n  %s" (String.concat "\n  " examples)
    | None -> ""
  in
  let link =
    match link with
    | Some link -> Printf.sprintf "\n\nMore info: %s" link
    | None -> ""
  in
  Printf.sprintf "%s%s%s" description examples link

let expr ~loc ?examples ?link description =
  let message = make ~description ~examples ~link in
  Builder.pexp_extension ~loc
  @@ Ppxlib.Location.Error.to_extension
  @@ Ppxlib.Location.Error.make ~loc message ~sub:[]

let raise ~loc ?examples ?link description =
  let message = make ~description ~examples ~link in
  raise @@ Ppxlib.Location.raise_errorf ~loc "%s" message