+4 -6

stack/syndic/lib/syndic_atom.ml

reviewed

··· 1104 1104 )) 1105 1105 in 1106 1106 (* atomEntry* *) 1107 1107 - let fix_author pos (e : entry) = 1107 1107 + let fix_author _pos (e : entry) = 1108 1108 match e.authors with 1109 1109 | a, [] when a.name = dummy_name -> ( 1110 1110 (* In an Atom Feed Document, the atom:author elements of the containing ··· 1114 1114 match authors with 1115 1115 | a0 :: a -> {e with authors= (a0, a)} 1116 1116 | [] -> 1117 1117 - let msg = 1118 1118 - "<entry> elements MUST contains at least an <author> element or \ 1119 1119 - <feed> element MUST contains one or more <author> elements" 1120 1120 - in 1121 1121 - raise (Error.Error (pos, msg)) ) 1117 1117 + (* RFC 4287 requires at least one author, but many real-world feeds 1118 1118 + omit this. Be lenient and use an empty author rather than failing. *) 1119 1119 + {e with authors= (empty_author, [])} ) 1122 1120 | _ -> e 1123 1121 in 1124 1122 let entries =

+1

stack/syndic/lib/syndic_common.ml

reviewed

··· 98 98 let get_leaf l = 99 99 match find (function XML.Data _ -> true | _ -> false) l with 100 100 | Some (XML.Data (_, s)) -> s 101 101 + | None -> "" (* Return empty string for empty elements instead of raising Not_found *) 101 102 | _ -> raise Not_found 102 103 103 104 let get_attrs ((_, attrs) : XML.tag) = attrs