let fpp_header fmt d =
  begin
    d.d_title fmt ;
    Format.pp_print_newline fmt () ;
    ( match d.d_source with
        | Some { Log.src_file=f ; Log.src_line=k } ->
            Format.fprintf fmt "%s:%d: " f k
        | None -> () ) ;
    d.d_descr fmt ;
  end