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

Bug fix: Some nodes were not indented.

Browse Source
This commit is contained in:
Christian Rinderknecht 2019-11-05 15:57:43 +01:00
parent 351025b52d
commit bd6ce2f28c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/passes/1-parser/ligodity/ParserLog.ml
View File

@ -753,7 +753,7 @@ and pp_fun_expr buffer ~pad:(_,pc) node =
let () = let () =
let pad = mk_pad fields (fields - 1) pc in let pad = mk_pad fields (fields - 1) pc in
pp_node buffer ~pad "<body>"; pp_node buffer ~pad "<body>";
pp_expr buffer ~pad body pp_expr buffer ~pad:(mk_pad 1 0 pc) body
in () in ()
and pp_let_in buffer ~pad:(_,pc) node = and pp_let_in buffer ~pad:(_,pc) node =
@ -772,13 +772,13 @@ and pp_let_in buffer ~pad:(_,pc) node =
pp_node buffer ~pad "<lhs type>"; pp_node buffer ~pad "<lhs type>";
pp_type_expr buffer ~pad:(mk_pad 1 0 pc) type_expr in pp_type_expr buffer ~pad:(mk_pad 1 0 pc) type_expr in
let () = let () =
let pad = mk_pad fields (fields - 2) pc in let _, pc as pad = mk_pad fields (fields - 2) pc in
pp_node buffer ~pad "<rhs>"; pp_node buffer ~pad "<rhs>";
pp_expr buffer ~pad let_rhs in pp_expr buffer ~pad:(mk_pad 1 0 pc) let_rhs in
let () = let () =
let pad = mk_pad fields (fields - 1) pc in let _, pc as pad = mk_pad fields (fields - 1) pc in
pp_node buffer ~pad "<body>"; pp_node buffer ~pad "<body>";
pp_expr buffer ~pad body pp_expr buffer ~pad:(mk_pad 1 0 pc) body
in () in ()
and pp_tuple_expr buffer ~pad:(_,pc) {value; _} = and pp_tuple_expr buffer ~pad:(_,pc) {value; _} =