From 320b71d3ac9d2d2f2a7518d42c6fda0c7a34021d Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Mon, 12 Mar 2012 08:42:08 +0200 Subject: [PATCH] yesod-newsfeed: replace String with Text --- yesod-newsfeed/Yesod/AtomFeed.hs | 3 ++- yesod-newsfeed/Yesod/RssFeed.hs | 3 ++- yesod-newsfeed/yesod-newsfeed.cabal | 2 +- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/yesod-newsfeed/Yesod/AtomFeed.hs b/yesod-newsfeed/Yesod/AtomFeed.hs index e35ad408..15573f96 100644 --- a/yesod-newsfeed/Yesod/AtomFeed.hs +++ b/yesod-newsfeed/Yesod/AtomFeed.hs @@ -27,6 +27,7 @@ import Yesod.FeedTypes import Text.Hamlet (HtmlUrl, xhamlet, hamlet) import qualified Data.ByteString.Char8 as S8 import Control.Monad (liftM) +import Data.Text (Text) newtype RepAtom = RepAtom Content instance HasReps RepAtom where @@ -73,7 +74,7 @@ entryTemplate arg = -- | Generates a link tag in the head of a widget. atomLink :: Route m - -> String -- ^ title + -> Text -- ^ title -> GWidget s m () atomLink r title = addHamletHead #if __GLASGOW_HASKELL__ >= 700 diff --git a/yesod-newsfeed/Yesod/RssFeed.hs b/yesod-newsfeed/Yesod/RssFeed.hs index 1bd1a087..98f88bbb 100644 --- a/yesod-newsfeed/Yesod/RssFeed.hs +++ b/yesod-newsfeed/Yesod/RssFeed.hs @@ -23,6 +23,7 @@ import Yesod.FeedTypes import Text.Hamlet (HtmlUrl, xhamlet, hamlet) import qualified Data.ByteString.Char8 as S8 import Control.Monad (liftM) +import Data.Text (Text) newtype RepRss = RepRss Content instance HasReps RepRss where @@ -70,7 +71,7 @@ entryTemplate arg = -- | Generates a link tag in the head of a widget. rssLink :: Route m - -> String -- ^ title + -> Text -- ^ title -> GWidget s m () rssLink r title = addHamletHead #if __GLASGOW_HASKELL__ >= 700 diff --git a/yesod-newsfeed/yesod-newsfeed.cabal b/yesod-newsfeed/yesod-newsfeed.cabal index 8eeb66db..4e013872 100644 --- a/yesod-newsfeed/yesod-newsfeed.cabal +++ b/yesod-newsfeed/yesod-newsfeed.cabal @@ -1,5 +1,5 @@ name: yesod-newsfeed -version: 0.4.1 +version: 1.0.0 license: BSD3 license-file: LICENSE author: Michael Snoyman, Patrick Brisbin