From 34738eececbbc99f39cb87d0dd92e51b92bb7fb5 Mon Sep 17 00:00:00 2001
From: Tim-ats-d <tim.arnouts@protonmail.com>
Date: Mon, 6 Nov 2023 17:19:34 +0100
Subject: [PATCH] Fix XML namespacing in Yocaml_syndication.

---
 lib/yocaml_syndication/yocaml_syndication.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/yocaml_syndication/yocaml_syndication.ml b/lib/yocaml_syndication/yocaml_syndication.ml
index ffdb269..a452da4 100644
--- a/lib/yocaml_syndication/yocaml_syndication.ml
+++ b/lib/yocaml_syndication/yocaml_syndication.ml
@@ -47,7 +47,10 @@ module Atom = struct
       "<?xml version=%S encoding=%S?>%s"
       xml_version
       encoding
-      (Syndic.Atom.to_xml feed |> Syndic.XML.to_string)
+      (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"))
   ;;
 
   let to_atom ?xml_version ?encoding feed =