From 1da46a547e4ce5d6e0e7855d8b56c6075b673040 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Fri, 19 Apr 2013 13:00:44 +0300 Subject: [PATCH] Fix priority --- yesod-sitemap/Yesod/Sitemap.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/yesod-sitemap/Yesod/Sitemap.hs b/yesod-sitemap/Yesod/Sitemap.hs index 43cf6d430..a25c0b957 100644 --- a/yesod-sitemap/Yesod/Sitemap.hs +++ b/yesod-sitemap/Yesod/Sitemap.hs @@ -117,4 +117,6 @@ sitemapConduit render = do case sitemapChangeFreq of Nothing -> return () Just scf -> element "changefreq" [] $ yield $ EventContent $ ContentText $ showFreq scf - element "priority" [] $ yield $ EventContent $ ContentText $ pack $ show sitemapPriority + case sitemapPriority of + Nothing -> return () + Just p -> element "priority" [] $ yield $ EventContent $ ContentText $ pack $ show p