print only the source files

moyodiallo · moyodiallo · commit df00bbd02bad · 2024-01-31T13:55:01.000+01:00
Signed-off-by: Alpha DIALLO &lt;moyodiallo@gmail.com&gt;
diff --git a/src/dune_engine/diff_promotion.ml b/src/dune_engine/diff_promotion.ml
@@ -251,6 +251,6 @@ let display_files files_to_promote =
   file_opts
   |> List.filter_opt
   |> List.sort ~compare:(fun file file' -> File.compare file file')
-  |> List.map ~f:File.to_dyn
-  |> List.iter ~f:(fun file -> Console.print [ Dyn.pp file ])
+  |> List.iter ~f:(fun (file : File.t) ->
+    Console.printf "%s" (Path.Source.to_string file.dst))
 ;;
diff --git a/test/blackbox-tests/test-cases/promote/promotion-list.t b/test/blackbox-tests/test-cases/promote/promotion-list.t
@@ -33,24 +33,12 @@
   [1]
 
   $ dune promotion list --diff-command 'diff -u' 2>&1
-  { src = In_build_dir "default/a.actual"
-  ; staging = None
-  ; dst = In_source_tree "a.expected"
-  }
-  { src = In_build_dir "default/b.actual"
-  ; staging = Some In_build_dir ".promotion-staging/b.expected"
-  ; dst = In_source_tree "b.expected"
-  }
+  a.expected
+  b.expected
 
   $ dune promotion list b.expected --diff-command 'diff -u' 2>&1
-  { src = In_build_dir "default/b.actual"
-  ; staging = Some In_build_dir ".promotion-staging/b.expected"
-  ; dst = In_source_tree "b.expected"
-  }
+  b.expected
 
   $ dune promotion list a.expected nothing-to-promote.txt --diff-command 'diff -u' 2>&1
   Warning: Nothing to promote for nothing-to-promote.txt.
-  { src = In_build_dir "default/a.actual"
-  ; staging = None
-  ; dst = In_source_tree "a.expected"
-  }
+  a.expected
