32 lines
932 B
Haskell
32 lines
932 B
Haskell
-------------------------------------------------------------------------------
|
|
--
|
|
-- Module : Yesod.Feed
|
|
-- Copyright : Patrick Brisbin
|
|
-- License : as-is
|
|
--
|
|
-- Maintainer : Patrick Brisbin <me@pbrisbin.com>
|
|
-- Stability : Stable
|
|
-- Portability : Portable
|
|
--
|
|
-- Generic Feed and Feed Entry data types that can be used as either an
|
|
-- Rss feed or an Atom feed (or both, or other).
|
|
--
|
|
-- Atom spec: <http://en.wikipedia.org/wiki/Atom_(standard)>
|
|
-- Rss spec: <http://www.rssboard.org/rss-specification>
|
|
--
|
|
-------------------------------------------------------------------------------
|
|
module Yesod.Feed
|
|
( newsFeed
|
|
, module Yesod.FeedTypes
|
|
) where
|
|
|
|
import Yesod.FeedTypes
|
|
import Yesod.AtomFeed
|
|
import Yesod.RssFeed
|
|
import Yesod.Core
|
|
|
|
newsFeed :: MonadHandler m => Feed (Route (HandlerSite m)) -> m TypedContent
|
|
newsFeed f = selectRep $ do
|
|
provideRep $ atomFeed f
|
|
provideRep $ rssFeed f
|