Merge branch 'main' into remove-trailing-spaces-empty-lines

Author: gpetiot

CHANGES.md

@@ -10,6 +10,7 @@
 
 #### Fixed
 
+- Fix accidental redirect of stderr to stdout (#343, @Leonidas-from-XIV)
 - Remove trailing whitespaces that were added to indent empty lines (#341, @gpetiot)
 
 #### Removed

lib/top/mdx_top.ml

@@ -22,7 +22,7 @@ type directive = Directory of string | Load of string
 
 let redirect ~f =
   let stdout_backup = Unix.dup Unix.stdout in
-  let stderr_backup = Unix.dup Unix.stdout in
+  let stderr_backup = Unix.dup Unix.stderr in
   let filename = Filename.temp_file "ocaml-mdx" "stdout" in
   let fd_out =
     Unix.openfile filename Unix.[ O_WRONLY; O_CREAT; O_TRUNC ] 0o600