yesod-newsfeed: replace String with Text

This commit is contained in:
Michael Snoyman 2012-03-12 08:42:08 +02:00
parent eeea0292ad
commit 320b71d3ac
3 changed files with 5 additions and 3 deletions

View File

@ -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

View File

@ -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

View File

@ -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