diff options
| author | koral <> | 2020-05-26 12:09:00 (GMT) |
|---|---|---|
| committer | hdiff <hdiff@hdiff.luite.com> | 2020-05-26 12:09:00 (GMT) |
| commit | 13e2a350a8d7b35d80ad2b7da46ea142b8211c7f (patch) | |
| tree | ce5094c3b233f5af4658966cc5a7e1c1590c202b /Text/OPML/Types.hs | |
| parent | 5dafef5a54e88fd65ef6a01adc2a1c210db542ab (diff) | |
version 0.8.0.00.8.0.0
Diffstat (limited to 'Text/OPML/Types.hs')
| -rw-r--r-- | Text/OPML/Types.hs | 6 |
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 |