ligo/src/bin/cli_helpers.ml

open Trace
open Main.Display

let toplevel ~(display_format : display_format) (x : string result) =
  match x with
  | Ok _ -> Format.printf "%a%!" (formatted_string_result_pp display_format) x
  | Error _ ->
     Format.eprintf "%a%!" (formatted_string_result_pp display_format) x ;
     exit 1
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
Add hex michelson output, use enums for format options 2019-10-26 21:57:22 +04:00			`let toplevel ~(display_format : display_format) (x : string result) =`
Print errors to stderr, exit 1 2019-09-04 20:41:14 +04:00			`match x with`
Add hex michelson output, use enums for format options 2019-10-26 21:57:22 +04:00			`\| Ok _ -> Format.printf "%a%!" (formatted_string_result_pp display_format) x`
Print errors to stderr, exit 1 2019-09-04 20:41:14 +04:00			`\| Error _ ->`
Add hex michelson output, use enums for format options 2019-10-26 21:57:22 +04:00			`Format.eprintf "%a%!" (formatted_string_result_pp display_format) x ;`
Print errors to stderr, exit 1 2019-09-04 20:41:14 +04:00			`exit 1`