Fix indent in nested list

Signed-off-by: Etienne Millon <[email protected]>
ocaml · Dec 4, 2018 · 452e101 · 452e101
1 parent 355ee86
commit 452e101
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/dune_fmt.ml b/src/dune_fmt.ml
@@ -85,7 +85,7 @@ and pp_sexp_list indent fmt sexps =
         )
         fmt
         sexps;
-      Format.fprintf fmt "%a)" pp_indent indent;
+      Format.pp_print_char fmt ')'
     end
 
 let pp_top_sexp fmt sexp =

diff --git a/test/blackbox-tests/test-cases/fmt/run.t b/test/blackbox-tests/test-cases/fmt/run.t
@@ -62,4 +62,4 @@ and files are not removed when there is an error:
   $ echo ' (a (b (c d)))' | dune unstable-fmt
   (a
    (b
-    (c d) ))
+    (c d)))
-Original file line number
+Diff line change
@@ Expand Up / @@ -85,7 +85,7 @@ and pp_sexp_list indent fmt sexps = @@
             )
             fmt
             sexps;
-          Format.fprintf fmt "%a)" pp_indent indent;
+          Format.pp_print_char fmt ')'
         end
     let pp_top_sexp fmt sexp =
@@ Expand Down @@