yesod-newsfeed 1.2.0.2 → 1.2.1

raw patch · 4 files changed

+23/−1 lines, 4 files

Files

• Yesod/AtomFeed.hs +6/−0
• Yesod/Feed.hs +10/−0
• Yesod/RssFeed.hs +6/−0
• yesod-newsfeed.cabal +1/−1

@@ -20,6 +20,7 @@ -- | Generation of Atom newsfeeds. module Yesod.AtomFeed     ( atomFeed+    , atomFeedText     , atomLink     , RepAtom (..)     , module Yesod.FeedTypes@@ -46,6 +47,11 @@ atomFeed feed = do     render <- getUrlRender     return $ RepAtom $ toContent $ renderLBS def $ template feed render++-- | Same as @'atomFeed'@ but for @'Feed Text'@. Useful for cases where you are+--   generating a feed of external links.+atomFeedText :: MonadHandler m => Feed Text -> m RepAtom+atomFeedText feed = return $ RepAtom $ toContent $ renderLBS def $ template feed id  template :: Feed url -> (url -> Text) -> Document template Feed {..} render =

@@ -17,6 +17,7 @@ ------------------------------------------------------------------------------- module Yesod.Feed     ( newsFeed+    , newsFeedText     , module Yesod.FeedTypes     ) where @@ -25,7 +26,16 @@ import Yesod.RssFeed import Yesod.Core +import Data.Text+ newsFeed :: MonadHandler m => Feed (Route (HandlerSite m)) -> m TypedContent newsFeed f = selectRep $ do     provideRep $ atomFeed f     provideRep $ rssFeed f++-- | Same as @'newsFeed'@ but for @'Feed Text'@. Useful for cases where you are+--   generating a feed of external links.+newsFeedText :: MonadHandler m => Feed Text -> m TypedContent+newsFeedText f = selectRep $ do+    provideRep $ atomFeedText f+    provideRep $ rssFeedText f

@@ -16,6 +16,7 @@ ------------------------------------------------------------------------------- module Yesod.RssFeed     ( rssFeed+    , rssFeedText     , rssLink     , RepRss (..)     , module Yesod.FeedTypes@@ -43,6 +44,11 @@ rssFeed feed = do     render <- getUrlRender     return $ RepRss $ toContent $ renderLBS def $ template feed render++-- | Same as @'rssFeed'@ but for @'Feed Text'@. Useful for cases where you are+--   generating a feed of external links.+rssFeedText :: MonadHandler m => Feed Text -> m RepRss+rssFeedText feed = return $ RepRss $ toContent $ renderLBS def $ template feed id  template :: Feed url -> (url -> Text) -> Document template Feed {..} render =

@@ -1,5 +1,5 @@ name:            yesod-newsfeed-version:         1.2.0.2+version:         1.2.1 license:         MIT license-file:    LICENSE author:          Michael Snoyman, Patrick Brisbin