summaryrefslogtreecommitdiff
path: root/Text/OPML/Types.hs
diff options
context:
space:
mode:
authorkoral <>2020-05-26 12:09:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2020-05-26 12:09:00 (GMT)
commit13e2a350a8d7b35d80ad2b7da46ea142b8211c7f (patch)
treece5094c3b233f5af4658966cc5a7e1c1590c202b /Text/OPML/Types.hs
parent5dafef5a54e88fd65ef6a01adc2a1c210db542ab (diff)
version 0.8.0.00.8.0.0
Diffstat (limited to 'Text/OPML/Types.hs')
-rw-r--r--Text/OPML/Types.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Text/OPML/Types.hs b/Text/OPML/Types.hs
index 2a4a1a2..3bf821c 100644
--- a/Text/OPML/Types.hs
+++ b/Text/OPML/Types.hs
@@ -118,9 +118,9 @@ mkOutlineSubscription uri = OutlineSubscription uri mzero mempty mempty mempty m
-- | Outlines are the main payload of an OPML document.
-data OpmlOutline = OpmlOutlineGeneric OutlineBase Text
- | OpmlOutlineLink OutlineBase URI
- | OpmlOutlineSubscription OutlineBase OutlineSubscription
+data OpmlOutline = OpmlOutlineGeneric { opmlOutlineBase :: OutlineBase, opmlOutlineContent :: Text }
+ | OpmlOutlineLink { opmlOutlineBase :: OutlineBase, opmlOutlineUri :: URI }
+ | OpmlOutlineSubscription { opmlOutlineBase :: OutlineBase, opmlOutlineSubscription :: OutlineSubscription }
deriving instance Eq OpmlOutline
deriving instance Generic OpmlOutline