Fix priority

yesodweb · Apr 19, 2013 · 1da46a5 · 1da46a5
1 parent a013eb2
commit 1da46a5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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