Minor printing fix

Author: Gbury

middle_end/flambda/unboxing/unboxing_types.ml

@@ -44,7 +44,7 @@ module Extra_param_and_args = struct
     Format.fprintf fmt "@[<hv 1>(\
       @[<hov>(param %a)@]@ \
       @[<v 2>(args@ <...>)@]\
-      )"
+      )@]"
       Variable.print param
       (* (Apply_cont_rewrite_id.Map.print EPA.Extra_arg.print) args *)
 end

middle_end/flambda/unboxing/unboxing_types.mli

@@ -72,6 +72,10 @@ and decision =
   | Unbox of unboxing_decision
   | Do_not_unbox of do_not_unbox_reason
 
+val print_decision : Format.formatter -> decision -> unit
+(** Printing function for individual decisions. *)
+
+
 module Decisions : sig
   type t = {
     decisions : (KP.t * decision) list;