28 lines
586 B
Haskell
28 lines
586 B
Haskell
module SitemapXml where
|
|
|
|
type Sitemap = [UrlData]
|
|
|
|
data ChangeFreq = CFNever
|
|
| CFYearly
|
|
| CFMonthly
|
|
| CFWeekly
|
|
| CFDaily
|
|
| CFHourly
|
|
| CFAlways
|
|
|
|
instance Show ChangeFreq where
|
|
show CFNever = "never"
|
|
show CFYearly = "yearly"
|
|
show CFMonthly = "monthly"
|
|
show CFWeekly = "weekly"
|
|
show CFDaily = "daily"
|
|
show CFHourly = "hourly"
|
|
show CFAlways = "always"
|
|
|
|
data UrlData = UrlData
|
|
{ url :: String
|
|
, lastMod :: Maybe String
|
|
, changeFreq :: ChangeFreq
|
|
, priority :: Priority
|
|
}
|