haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

HasReps Plain; exposing SitemapResponse

Browse Source
This commit is contained in:
Michael Snoyman 2009-12-22 00:17:54 +02:00
parent c8078f0be3
commit abe8b16cfd
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Yesod/Helpers/Sitemap.hs
View File

@ -21,6 +21,7 @@ module Yesod.Helpers.Sitemap
, SitemapUrl (..) , SitemapUrl (..)
, SitemapLoc (..) , SitemapLoc (..)
, SitemapChangeFreq (..) , SitemapChangeFreq (..)
, SitemapResponse (..)
) where ) where
import Yesod.Definitions import Yesod.Definitions

4
Yesod/Rep.hs
View File

@ -149,8 +149,10 @@ instance HasReps [(ContentType, Content)] where
(x:_) -> x (x:_) -> x
_ -> error "chooseRep [(ContentType, Content)] of empty" _ -> error "chooseRep [(ContentType, Content)] of empty"
newtype Plain = Plain Text newtype Plain = Plain { unPlain :: Text }
deriving (Eq, Show) deriving (Eq, Show)
instance HasReps Plain where
reps = [(TypePlain, return . cs . unPlain)]
plain :: ConvertSuccess x Text => x -> Plain plain :: ConvertSuccess x Text => x -> Plain
plain = Plain . cs plain = Plain . cs