1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
--------------------------------------------------------------------
-- |
-- Module : Text.Feed.Types
-- Copyright : (c) Galois, Inc. 2008
-- License : BSD3
--
-- Maintainer: Sigbjorn Finne <sof@galois.com>
-- Stability : provisional
-- Portability:
--
--------------------------------------------------------------------
module Text.Feed.Types where
import Text.RSS.Syntax as RSS
import Text.Atom.Feed as Atom
import Text.RSS1.Syntax as RSS1
import Text.XML.Light as XML
-- | The abstract type of feed documents. The internal representation
-- is as whatever feed variant type the document was either imported or
-- has now been translated to.
data Feed
= AtomFeed Atom.Feed
| RSSFeed RSS.RSS
| RSS1Feed RSS1.Feed
-- if we're unable to correctly the well-formed XML as a feed,
-- keep it as an untyped document.
| XMLFeed XML.Element
deriving (Show)
-- | The abstract type of feed items. Like the 'Text.Feed.Types.Feed' type, the
-- representation of a value is as one of the different RSS item\/entry
-- variants.
data Item
= AtomItem Atom.Entry
| RSSItem RSS.RSSItem
| RSS1Item RSS1.Item
| XMLItem XML.Element
deriving (Show)
-- | The kinds of feed documents supported.
data FeedKind
= AtomKind
| RSSKind (Maybe String) -- Nothing => default version (2.0)
| RDFKind (Maybe String) -- Nothing => default version (1.0)
deriving (Eq, Show)
|
