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

Fix priority

Browse Source
This commit is contained in:
Michael Snoyman 2013-04-19 13:00:44 +03:00
parent a013eb2295
commit 1da46a547e
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-sitemap/Yesod/Sitemap.hs
View File

@ -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