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

Fix building

Browse Source
This commit is contained in:
Michael Snoyman 2011-04-10 21:51:45 +03:00
parent 237d7902f7
commit 5e9b8ba1f4
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Helpers/Sitemap.hs
View File

@ -1,5 +1,6 @@
{-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE CPP #-} {-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
--------------------------------------------------------- ---------------------------------------------------------
-- --
-- Module : Yesod.Helpers.Sitemap -- Module : Yesod.Helpers.Sitemap
@ -29,6 +30,7 @@ import Yesod.Handler (Route, GHandler, getUrlRender)
import Yesod.Handler (hamletToContent) import Yesod.Handler (hamletToContent)
import Text.Hamlet (Hamlet, xhamlet) import Text.Hamlet (Hamlet, xhamlet)
import Data.Time (UTCTime) import Data.Time (UTCTime)
import Data.Monoid (mappend)
data SitemapChangeFreq = Always data SitemapChangeFreq = Always
| Hourly | Hourly
@ -78,4 +80,4 @@ robots :: Route master -- ^ sitemap url
-> GHandler sub master RepPlain -> GHandler sub master RepPlain
robots smurl = do robots smurl = do
render <- getUrlRender render <- getUrlRender
return $ RepPlain $ toContent $ "Sitemap: " ++ render smurl return $ RepPlain $ toContent $ "Sitemap: " `mappend` render smurl