From bd6ce2f28ccd14c9973465842520c255ffbd8fc1 Mon Sep 17 00:00:00 2001 From: Christian Rinderknecht Date: Tue, 5 Nov 2019 15:57:43 +0100 Subject: [PATCH] Bug fix: Some nodes were not indented. --- src/passes/1-parser/ligodity/ParserLog.ml | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/passes/1-parser/ligodity/ParserLog.ml b/src/passes/1-parser/ligodity/ParserLog.ml index b4d39f971..b37a5fbbe 100644 --- a/src/passes/1-parser/ligodity/ParserLog.ml +++ b/src/passes/1-parser/ligodity/ParserLog.ml @@ -753,7 +753,7 @@ and pp_fun_expr buffer ~pad:(_,pc) node = let () = let pad = mk_pad fields (fields - 1) pc in pp_node buffer ~pad ""; - pp_expr buffer ~pad body + pp_expr buffer ~pad:(mk_pad 1 0 pc) body in () and pp_let_in buffer ~pad:(_,pc) node = @@ -772,13 +772,13 @@ and pp_let_in buffer ~pad:(_,pc) node = pp_node buffer ~pad ""; pp_type_expr buffer ~pad:(mk_pad 1 0 pc) type_expr in 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 ""; - pp_expr buffer ~pad let_rhs in + pp_expr buffer ~pad:(mk_pad 1 0 pc) let_rhs in 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 ""; - pp_expr buffer ~pad body + pp_expr buffer ~pad:(mk_pad 1 0 pc) body in () and pp_tuple_expr buffer ~pad:(_,pc) {value; _} =