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 Text.Hamlet (HtmlUrl, xhamlet, hamlet)
|
||||||
import qualified Data.ByteString.Char8 as S8
|
import qualified Data.ByteString.Char8 as S8
|
||||||
import Control.Monad (liftM)
|
import Control.Monad (liftM)
|
||||||
|
import Data.Text (Text)
|
||||||
|
|
||||||
newtype RepAtom = RepAtom Content
|
newtype RepAtom = RepAtom Content
|
||||||
instance HasReps RepAtom where
|
instance HasReps RepAtom where
|
||||||
@ -73,7 +74,7 @@ entryTemplate arg =
|
|||||||
|
|
||||||
-- | Generates a link tag in the head of a widget.
|
-- | Generates a link tag in the head of a widget.
|
||||||
atomLink :: Route m
|
atomLink :: Route m
|
||||||
-> String -- ^ title
|
-> Text -- ^ title
|
||||||
-> GWidget s m ()
|
-> GWidget s m ()
|
||||||
atomLink r title = addHamletHead
|
atomLink r title = addHamletHead
|
||||||
#if __GLASGOW_HASKELL__ >= 700
|
#if __GLASGOW_HASKELL__ >= 700
|
||||||
|
|||||||
@ -23,6 +23,7 @@ import Yesod.FeedTypes
|
|||||||
import Text.Hamlet (HtmlUrl, xhamlet, hamlet)
|
import Text.Hamlet (HtmlUrl, xhamlet, hamlet)
|
||||||
import qualified Data.ByteString.Char8 as S8
|
import qualified Data.ByteString.Char8 as S8
|
||||||
import Control.Monad (liftM)
|
import Control.Monad (liftM)
|
||||||
|
import Data.Text (Text)
|
||||||
|
|
||||||
newtype RepRss = RepRss Content
|
newtype RepRss = RepRss Content
|
||||||
instance HasReps RepRss where
|
instance HasReps RepRss where
|
||||||
@ -70,7 +71,7 @@ entryTemplate arg =
|
|||||||
|
|
||||||
-- | Generates a link tag in the head of a widget.
|
-- | Generates a link tag in the head of a widget.
|
||||||
rssLink :: Route m
|
rssLink :: Route m
|
||||||
-> String -- ^ title
|
-> Text -- ^ title
|
||||||
-> GWidget s m ()
|
-> GWidget s m ()
|
||||||
rssLink r title = addHamletHead
|
rssLink r title = addHamletHead
|
||||||
#if __GLASGOW_HASKELL__ >= 700
|
#if __GLASGOW_HASKELL__ >= 700
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
name: yesod-newsfeed
|
name: yesod-newsfeed
|
||||||
version: 0.4.1
|
version: 1.0.0
|
||||||
license: BSD3
|
license: BSD3
|
||||||
license-file: LICENSE
|
license-file: LICENSE
|
||||||
author: Michael Snoyman, Patrick Brisbin
|
author: Michael Snoyman, Patrick Brisbin
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user