[tmtc] fix formatted string parsing in messages

temporary fix...

sw/ground_segment/tmtc/messages.ml

@@ -79,7 +79,7 @@ let one_page = fun sender class_name (notebook:GPack.notebook) bind m ->
                 sprintf "%s (%d)" literal_values.(i) i
               with _ ->
                 match format_ with
-                | Some f -> alt_value (Pprz.formatted_string_of_value f x)
+                | Some f -> alt_value (Pprz.string_of_value_format f x)
                 | _ -> alt_value (Pprz.string_of_value x)
           and display_value = fun () ->
             if notebook#page_num v#coerce = notebook#current_page then

sw/lib/ocaml/pprz.mli

@@ -64,6 +64,7 @@ val is_fixed_array_type : string -> bool
 val size_of_field : field -> int
 val string_of_value : value -> string
 val formatted_string_of_value : 'a -> value -> string
+val string_of_value_format : 'a -> value -> string
 val int_of_value : value -> int (* May raise Invalid_argument *)
 type type_descr = {
     format : string ;