style: apply ocamlformat to promotion show code

Signed-off-by: Maxence Maury <[email protected]>

Author: Maxence Maury

bin/promotion.ml

@@ -127,7 +127,7 @@ end
 
 module Show = struct
   let info = Cmd.info ~doc:"Display contents of a corrected file" "show"
-  
+
   let term =
     let+ builder = Common.Builder.term
     and+ files = Arg.(value & pos_all Cmdliner.Arg.file [] & info [] ~docv:"FILE") in
@@ -136,7 +136,7 @@ module Show = struct
     Scheduler.go_with_rpc_server ~common ~config (fun () ->
       show_corrected_contents files_to_promote)
   ;;
-  
+
   let command = Cmd.v info term
 end
 

src/promote/diff_promotion.mli

@@ -7,7 +7,7 @@ module File : sig
   val in_staging_area : Path.Source.t -> Path.Build.t
   val compare : t -> t -> ordering
   val source : t -> Path.Source.t
-  val correction_file : t -> Path.t 
+  val correction_file : t -> Path.t
 
   (** Register an intermediate file to promote. The build path may point to the
       sandbox and the file will be moved to the staging area. *)