From 2eac2738c988fa256b08a8e52fea9f236c8a61dc Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sat, 5 Feb 2011 20:24:58 +0200
Subject: [PATCH] Hamlet 0.7

---
 Yesod/Helpers/Sitemap.hs | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/Yesod/Helpers/Sitemap.hs b/Yesod/Helpers/Sitemap.hs
index 6d79e834..05debf5f 100644
--- a/Yesod/Helpers/Sitemap.hs
+++ b/Yesod/Helpers/Sitemap.hs
@@ -26,7 +26,7 @@ module Yesod.Helpers.Sitemap
 
 import Yesod.Content (RepXml (..), RepPlain (..), toContent, formatW3)
 import Yesod.Handler (Route, GHandler, getUrlRender)
-import Yesod.Widget (hamletToContent)
+import Yesod.Handler (hamletToContent)
 import Text.Hamlet (Hamlet, xhamlet)
 import Data.Time (UTCTime)
 
@@ -61,13 +61,14 @@ template urls =
 #else
                 [$xhamlet|
 #endif
-%urlset!xmlns="http://www.sitemaps.org/schemas/sitemap/0.9"
-    $forall urls url
-        %url
-            %loc @sitemapLoc.url@
-            %lastmod $formatW3.sitemapLastMod.url$
-            %changefreq $showFreq.sitemapChangeFreq.url$
-            %priority $show.priority.url$
+<div id="endif">
+<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
+    $forall url <- urls
+        <url>
+            <loc>@{sitemapLoc url}
+            <lastmod>#{formatW3 (sitemapLastMod url)}
+            <changefreq>#{showFreq (sitemapChangeFreq url)}
+            <priority>#{show (priority url)}
 |]
 
 sitemap :: [SitemapUrl (Route master)] -> GHandler sub master RepXml