let rss_item_of_tdl_item i =
match i.item_enddate with
None -> None
| Some d ->
let pubdate =
{ Rss.year = d.year ;
Rss.month = d.month ;
Rss.day = d.day ;
Rss.hour = d.hour ;
Rss.minute = d.minute ;
Rss.second = d.second ;
Rss.zone = d.zone ;
Rss.week_day = d.week_day ;
}
in
Some
(Rss.item
~title: i.item_title
?desc: i.item_desc
~pubdate
()
)