yesod-newsfeed 0.3.2 → 0.4.1
raw patch · 4 files changed
+13/−17 lines, 4 filesdep ~yesod-core
Dependency ranges changed: yesod-core
Files
- Yesod/AtomFeed.hs +4/−6
- Yesod/Feed.hs +2/−2
- Yesod/RssFeed.hs +4/−6
- yesod-newsfeed.cabal +3/−3
Yesod/AtomFeed.hs view
@@ -22,9 +22,7 @@ , module Yesod.FeedTypes ) where -import Yesod.Content-import Yesod.Handler-import Yesod.Widget+import Yesod.Core import Yesod.FeedTypes import Text.Hamlet (HtmlUrl, xhamlet, hamlet) import qualified Data.ByteString.Char8 as S8@@ -34,7 +32,7 @@ instance HasReps RepAtom where chooseRep (RepAtom c) _ = return (typeAtom, c) -atomFeed :: Monad mo => Feed (Route master) -> GGHandler sub master mo RepAtom+atomFeed :: Feed (Route master) -> GHandler sub master RepAtom atomFeed = liftM RepAtom . hamletToContent . template template :: Feed url -> HtmlUrl url@@ -77,11 +75,11 @@ atomLink :: Route m -> String -- ^ title -> GWidget s m ()-atomLink u title = addHamletHead+atomLink r title = addHamletHead #if __GLASGOW_HASKELL__ >= 700 [hamlet| #else [$hamlet| #endif-<link href=@{u} type=#{S8.unpack typeAtom} rel="alternate" title=#{title}+<link href=@{r} type=#{S8.unpack typeAtom} rel="alternate" title=#{title} |]
Yesod/Feed.hs view
@@ -25,7 +25,7 @@ import Yesod.AtomFeed import Yesod.RssFeed import Yesod.Content (HasReps (chooseRep), typeAtom, typeRss)-import Yesod.Handler (Route, GGHandler)+import Yesod.Core (Route, GHandler) data RepAtomRss = RepAtomRss RepAtom RepRss instance HasReps RepAtomRss where@@ -33,7 +33,7 @@ [ (typeAtom, a) , (typeRss, r) ]-newsFeed :: Monad mo => Feed (Route master) -> GGHandler sub master mo RepAtomRss+newsFeed :: Feed (Route master) -> GHandler sub master RepAtomRss newsFeed f = do a <- atomFeed f r <- rssFeed f
Yesod/RssFeed.hs view
@@ -18,9 +18,7 @@ , module Yesod.FeedTypes ) where -import Yesod.Handler-import Yesod.Content-import Yesod.Widget+import Yesod.Core import Yesod.FeedTypes import Text.Hamlet (HtmlUrl, xhamlet, hamlet) import qualified Data.ByteString.Char8 as S8@@ -31,7 +29,7 @@ chooseRep (RepRss c) _ = return (typeRss, c) -- | Generate the feed-rssFeed :: Monad mo => Feed (Route master) -> GGHandler sub master mo RepRss+rssFeed :: Feed (Route master) -> GHandler sub master RepRss rssFeed = liftM RepRss . hamletToContent . template template :: Feed url -> HtmlUrl url@@ -74,11 +72,11 @@ rssLink :: Route m -> String -- ^ title -> GWidget s m ()-rssLink u title = addHamletHead+rssLink r title = addHamletHead #if __GLASGOW_HASKELL__ >= 700 [hamlet| #else [$hamlet| #endif- <link href=@{u} type=#{S8.unpack typeRss} rel="alternate" title=#{title}+ <link href=@{r} type=#{S8.unpack typeRss} rel="alternate" title=#{title} |]
yesod-newsfeed.cabal view
@@ -1,5 +1,5 @@ name: yesod-newsfeed-version: 0.3.2+version: 0.4.1 license: BSD3 license-file: LICENSE author: Michael Snoyman, Patrick Brisbin@@ -14,7 +14,7 @@ library build-depends: base >= 4 && < 5- , yesod-core >= 0.9 && < 0.10+ , yesod-core >= 0.10.1 && < 0.11 , time >= 1.1.4 , hamlet >= 0.10 && < 0.11 , bytestring >= 0.9.1.4 && < 0.10@@ -27,4 +27,4 @@ source-repository head type: git- location: git://github.com/yesodweb/yesod.git+ location: https://github.com/yesodweb/yesod