Merge pull request #45 from Tim-ats-d/main

Fix XML namespacing in Yocaml_syndication.
xhtmlboi · Nov 15, 2023 · ca895a6 · ca895a6
2 parents 61067d4 + 34738ee
commit ca895a6
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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 =