ligo/src/bin/cli_helpers.ml

open Cmdliner
open Trace
open Main.Display

let toplevel ~(display_format : display_format) (x : string result) : unit Term.ret =
  match x with
  | Ok _ -> Format.printf "%a%!" (formatted_string_result_pp display_format) x;
            `Ok ()
  | Error _ ->
     `Error (false, Format.asprintf "%a%!" (formatted_string_result_pp display_format) x)
First negative tests for the old typer & improvement of error messages 2019-12-16 21:37:52 +04:00			`open Cmdliner`
add manual tests; change display of errors; minor refactorings 2019-06-28 16:05:04 +04:00			`open Trace`
more formats 2019-09-20 13:59:44 +04:00			`open Main.Display`
add manual tests; change display of errors; minor refactorings 2019-06-28 16:05:04 +04:00
First negative tests for the old typer & improvement of error messages 2019-12-16 21:37:52 +04:00			`let toplevel ~(display_format : display_format) (x : string result) : unit Term.ret =`
Print errors to stderr, exit 1 2019-09-04 20:41:14 +04:00			`match x with`
First negative tests for the old typer & improvement of error messages 2019-12-16 21:37:52 +04:00			`\| Ok _ -> Format.printf "%a%!" (formatted_string_result_pp display_format) x;`
			`Ok ()
Print errors to stderr, exit 1 2019-09-04 20:41:14 +04:00			`\| Error _ ->`
First negative tests for the old typer & improvement of error messages 2019-12-16 21:37:52 +04:00			`Error (false, Format.asprintf "%a%!" (formatted_string_result_pp display_format) x)