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

removed QQ hacks from yesod-sitemap

Browse Source
This commit is contained in:
Pascal Wittmann 2012-03-15 22:14:57 +01:00
parent 6155e135b0
commit a3c307070c
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
yesod-sitemap/Yesod/Sitemap.hs
View File

@ -1,5 +1,4 @@
{-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
--------------------------------------------------------- ---------------------------------------------------------
-- --
@ -57,12 +56,7 @@ data SitemapUrl url = SitemapUrl
} }
template :: [SitemapUrl url] -> HtmlUrl url template :: [SitemapUrl url] -> HtmlUrl url
template urls = template urls = [xhamlet|
#if __GLASGOW_HASKELL__ >= 700
[xhamlet|
#else
[$xhamlet|
#endif
<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9"> <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
$forall url <- urls $forall url <- urls
<url> <url>