yesod-newsfeed: replace String with Text
This commit is contained in:
parent
eeea0292ad
commit
320b71d3ac
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user