test/Golden/0002.xml.read

   1 Left (Feed {feed_authors = [], feed_categories = [], feed_contributors = [], feed_generator = Just (Generator {generator_uri = Just (URI "http://www.example.com/"), generator_version = Just "1.0", generator_common = Common {base = Nothing, lang = Nothing, undefs = []}, generator_text = "\n    Example Toolkit\n  "}), feed_icon = Nothing, feed_id = (Common {base = Nothing, lang = Nothing, undefs = []},URI "tag:example.org,2003:3"), feed_links = [Link {link_href = URI "http://example.org/", link_rel = Just (Left (RelName "alternate")), link_type = Just (MediaType "text/html"), link_hreflang = Just (LanguageTag "en"), link_title = Nothing, link_length = Nothing, link_extension = [], link_common = Common {base = Nothing, lang = Nothing, undefs = []}},Link {link_href = URI "http://example.org/feed.atom", link_rel = Just (Left (RelName "self")), link_type = Just (MediaType "application/atom+xml"), link_hreflang = Nothing, link_title = Nothing, link_length = Nothing, link_extension = [], link_common = Common {base = Nothing, lang = Nothing, undefs = []}}], feed_logo = Nothing, feed_rights = Just (Text_Xhtml {text_common = Common {base = Nothing, lang = Nothing, undefs = []}, text_content = "Copyright (c) 2003, Mark Pilgrim"}), feed_subtitle = Just (Text_Html {text_common = Common {base = Nothing, lang = Nothing, undefs = []}, text_content = "\n    A <em>lot</em> of effort\n    went into making this effortless\n  "}), feed_title = Text_Xhtml {text_common = Common {base = Nothing, lang = Nothing, undefs = []}, text_content = "dive into mark"}, feed_updated = (Common {base = Nothing, lang = Nothing, undefs = []},2005-07-31 12:29:29 UTC), feed_extensions = [], feed_entries = [Entry {entry_authors = [Person {person_name = "Mark Pilgrim", person_uri = Just (URI "http://example.org/"), person_email = Just (Email "f8dy@example.com"), person_extension = [], person_common = Common {base = Nothing, lang = Nothing, undefs = []}}], entry_categories = [], entry_content = Just (Common {base = Just (URI "http://diveintomark.org/"), lang = Just (LanguageTag "en"), undefs = []},Content_Xhtml (Node {rootLabel = XHTMLNode_Elem {http://www.w3.org/1999/xhtml}div [], subForest = [Node {rootLabel = XHTMLNode_Elem {http://www.w3.org/1999/xhtml}p [], subForest = [Node {rootLabel = XHTMLNode_Elem {http://www.w3.org/1999/xhtml}i [], subForest = [Node {rootLabel = XHTMLNode_Text "[Update: The Atom draft is finished.]", subForest = []}]}]}]})), entry_contributors = [Person {person_name = "Sam Ruby", person_uri = Nothing, person_email = Nothing, person_extension = [], person_common = Common {base = Nothing, lang = Nothing, undefs = []}},Person {person_name = "Joe Gregorio", person_uri = Nothing, person_email = Nothing, person_extension = [], person_common = Common {base = Nothing, lang = Nothing, undefs = []}}], entry_id = (Common {base = Nothing, lang = Nothing, undefs = []},URI "tag:example.org,2003:3.2397"), entry_links = [Link {link_href = URI "http://example.org/2005/04/02/atom", link_rel = Just (Left (RelName "alternate")), link_type = Just (MediaType "text/html"), link_hreflang = Nothing, link_title = Nothing, link_length = Nothing, link_extension = [], link_common = Common {base = Nothing, lang = Nothing, undefs = []}},Link {link_href = URI "http://example.org/audio/ph34r_my_podcast.mp3", link_rel = Just (Left (RelName "enclosure")), link_type = Just (MediaType "audio/mpeg"), link_hreflang = Nothing, link_title = Nothing, link_length = Just "1337", link_extension = [], link_common = Common {base = Nothing, lang = Nothing, undefs = []}}], entry_published = Just (Common {base = Nothing, lang = Nothing, undefs = []},2003-12-13 08:29:29 UTC), entry_rights = Nothing, entry_source = Nothing, entry_summary = Nothing, entry_title = Text_Xhtml {text_common = Common {base = Nothing, lang = Nothing, undefs = []}, text_content = "Atom draft-07 snapshot"}, entry_updated = (Common {base = Nothing, lang = Nothing, undefs = []},2005-07-31 12:29:29 UTC), entry_extensions = [], entry_common = Common {base = Nothing, lang = Nothing, undefs = []}}], feed_common = Common {base = Nothing, lang = Nothing, undefs = []}})