diff --git a/lib/generator/model.ml b/lib/generator/model.ml index 8d629da..b47859e 100644 --- a/lib/generator/model.ml +++ b/lib/generator/model.ml @@ -57,15 +57,7 @@ module Atom_util = struct ~links:[ Syndic.Atom.link ~rel:Syndic.Atom.Self ~hreflang:"fr" id ] ~updated entries - let pp ppf feed = - Syndic.Atom.to_xml feed - |> Syndic.XML.to_string ~ns_prefix:(function - | "http://www.w3.org/2005/Atom" -> Some "" - | _ -> Some "http://www.w3.org/2005/Atom") - |> String.cat {||} - |> Format.pp_print_string ppf - - let to_string feed = Format.asprintf "%a" pp feed + let to_string feed = Atom.to_string feed end module Date_filename = struct