yesod-sitemap 1.0.0.1 → 1.1.0
raw patch · 2 files changed
+11/−9 lines, 2 filesdep +containersdep ~xml-conduitdep ~yesod-core
Dependencies added: containers
Dependency ranges changed: xml-conduit, yesod-core
Files
- Yesod/Sitemap.hs +7/−6
- yesod-sitemap.cabal +4/−3
Yesod/Sitemap.hs view
@@ -30,6 +30,7 @@ import Data.Monoid (mappend) import Text.XML import Data.Text (Text, pack)+import qualified Data.Map as Map data SitemapChangeFreq = Always | Hourly@@ -66,13 +67,13 @@ addNS' n = n namespace = "http://www.sitemaps.org/schemas/sitemap/0.9" - root = Element "urlset" [] $ map go urls+ root = Element "urlset" Map.empty $ map go urls - go SitemapUrl {..} = NodeElement $ Element "url" [] $ map NodeElement- [ Element "loc" [] [NodeContent $ render sitemapLoc]- , Element "lastmod" [] [NodeContent $ formatW3 sitemapLastMod]- , Element "changefreq" [] [NodeContent $ showFreq sitemapChangeFreq]- , Element "priority" [] [NodeContent $ pack $ show sitemapPriority]+ go SitemapUrl {..} = NodeElement $ Element "url" Map.empty $ map NodeElement+ [ Element "loc" Map.empty [NodeContent $ render sitemapLoc]+ , Element "lastmod" Map.empty [NodeContent $ formatW3 sitemapLastMod]+ , Element "changefreq" Map.empty [NodeContent $ showFreq sitemapChangeFreq]+ , Element "priority" Map.empty [NodeContent $ pack $ show sitemapPriority] ] sitemap :: [SitemapUrl (Route master)] -> GHandler sub master RepXml
yesod-sitemap.cabal view
@@ -1,5 +1,5 @@ name: yesod-sitemap-version: 1.0.0.1+version: 1.1.0 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>@@ -14,10 +14,11 @@ library build-depends: base >= 4 && < 5- , yesod-core >= 1.0 && < 1.1+ , yesod-core >= 1.1 && < 1.2 , time >= 1.1.4- , xml-conduit >= 0.7 && < 0.8+ , xml-conduit >= 1.0 && < 1.1 , text+ , containers exposed-modules: Yesod.Sitemap ghc-options: -Wall