From c073e4724ba4ff3f0a2b93d5af46438cedc2b6b9 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 29 Dec 2011 12:01:10 +0200
Subject: [PATCH] Removed sitemap file

---
 yesod-sitemap/Yesod/Helpers/Sitemap.hs | 83 --------------------------
 1 file changed, 83 deletions(-)
 delete mode 100644 yesod-sitemap/Yesod/Helpers/Sitemap.hs

diff --git a/yesod-sitemap/Yesod/Helpers/Sitemap.hs b/yesod-sitemap/Yesod/Helpers/Sitemap.hs
deleted file mode 100644
index 4429225c..00000000
--- a/yesod-sitemap/Yesod/Helpers/Sitemap.hs
+++ /dev/null
@@ -1,83 +0,0 @@
-{-# LANGUAGE QuasiQuotes #-}
-{-# LANGUAGE CPP #-}
-{-# LANGUAGE OverloadedStrings #-}
----------------------------------------------------------
---
--- Module        : Yesod.Helpers.Sitemap
--- Copyright     : Michael Snoyman
--- License       : BSD3
---
--- Maintainer    : Michael Snoyman <michael@snoyman.com>
--- Stability     : Stable
--- Portability   : portable
---
--- Generating Google sitemap files.
---
----------------------------------------------------------
-
--- | Generates XML sitemap files.
---
--- See <http://www.sitemaps.org/>.
-module Yesod.Helpers.Sitemap
-    ( sitemap
-    , robots
-    , SitemapUrl (..)
-    , SitemapChangeFreq (..)
-    ) where
-
-import Yesod.Content (RepXml (..), RepPlain (..), toContent, formatW3)
-import Yesod.Handler (Route, GHandler, getUrlRender)
-import Yesod.Handler (hamletToContent)
-import Text.Hamlet (Hamlet, xhamlet)
-import Data.Time (UTCTime)
-import Data.Monoid (mappend)
-
-data SitemapChangeFreq = Always
-                       | Hourly
-                       | Daily
-                       | Weekly
-                       | Monthly
-                       | Yearly
-                       | Never
-
-showFreq :: SitemapChangeFreq -> String
-showFreq Always  = "always"
-showFreq Hourly  = "hourly"
-showFreq Daily   = "daily"
-showFreq Weekly  = "weekly"
-showFreq Monthly = "monthly"
-showFreq Yearly  = "yearly"
-showFreq Never   = "never"
-
-data SitemapUrl url = SitemapUrl
-    { sitemapLoc :: url
-    , sitemapLastMod :: UTCTime
-    , sitemapChangeFreq :: SitemapChangeFreq
-    , priority :: Double
-    }
-
-template :: [SitemapUrl url] -> Hamlet url
-template urls =
-#if __GLASGOW_HASKELL__ >= 700
-                [xhamlet|
-#else
-                [$xhamlet|
-#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
-sitemap = fmap RepXml . hamletToContent . template
-
--- | A basic robots file which just lists the "Sitemap: " line.
-robots :: Route master -- ^ sitemap url
-       -> GHandler sub master RepPlain
-robots smurl = do
-    render <- getUrlRender
-    return $ RepPlain $ toContent $ "Sitemap: " `mappend` render smurl