balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add missing newlines

Browse Source
This commit is contained in:
Lesenechal Remi 2020-01-17 16:29:23 +01:00
parent 6ce1ca4fcd
commit 0ad8bde6d1
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/bin/cli_helpers.ml
View File

@ -8,7 +8,7 @@ let error_suggest: string = "\n If you're not sure how to fix this error, you ca
* Visit our documentation: https://ligolang.org/docs/intro/what-and-why/ * Visit our documentation: https://ligolang.org/docs/intro/what-and-why/
* Ask a question on our Discord: https://discord.gg/9rhYaEt * Ask a question on our Discord: https://discord.gg/9rhYaEt
* Open a gitlab issue: https://gitlab.com/ligolang/ligo/issues/new * Open a gitlab issue: https://gitlab.com/ligolang/ligo/issues/new
* Check the changelog by running 'ligo changelog'" * Check the changelog by running 'ligo changelog'\n"
let toplevel ~(display_format : display_format) (x : string result) : unit Term.ret = let toplevel ~(display_format : display_format) (x : string result) : unit Term.ret =
match x with match x with

8
src/main/display.ml
View File

@ -57,14 +57,14 @@ let result_pp_hr f out (r : _ result) =
| Ok (s , _) -> Format.fprintf out "%a" f s | Ok (s , _) -> Format.fprintf out "%a" f s
| Error e -> Format.fprintf out "%a" (error_pp ~dev:false) (e ()) | Error e -> Format.fprintf out "%a" (error_pp ~dev:false) (e ())
let string_result_pp_hr = result_pp_hr (fun out s -> Format.fprintf out "%s" s) let string_result_pp_hr = result_pp_hr (fun out s -> Format.fprintf out "%s\n" s)
let result_pp_dev f out (r : _ result) = let result_pp_dev f out (r : _ result) =
match r with match r with
| Ok (s , _) -> Format.fprintf out "%a" f s | Ok (s , _) -> Format.fprintf out "%a" f s
| Error e -> Format.fprintf out "%a" (error_pp ~dev:true) (e ()) | Error e -> Format.fprintf out "%a" (error_pp ~dev:true) (e ())
let string_result_pp_dev = result_pp_hr (fun out s -> Format.fprintf out "%s" s) let string_result_pp_dev = result_pp_hr (fun out s -> Format.fprintf out "%s\n" s)
let json_pp out x = Format.fprintf out "%s" (J.to_string x) let json_pp out x = Format.fprintf out "%s" (J.to_string x)
@ -75,10 +75,10 @@ let string_result_pp_json out (r : string result) =
]) in ]) in
match r with match r with
| Ok (x , _) -> ( | Ok (x , _) -> (
Format.fprintf out "%a" json_pp (status_json "ok" (`String x)) Format.fprintf out "%a\n" json_pp (status_json "ok" (`String x))
) )
| Error e -> ( | Error e -> (
Format.fprintf out "%a" json_pp (status_json "error" (e ())) Format.fprintf out "%a\n" json_pp (status_json "error" (e ()))
) )
type display_format = [ type display_format = [