2018-05-05 13:49:13 -07:00
|
|
|
module Page where
|
|
|
|
|
|
|
|
import Templates
|
|
|
|
|
2018-05-05 18:07:53 -07:00
|
|
|
import HtmlGen
|
|
|
|
|
|
|
|
lastModified :: String
|
2018-05-11 19:04:55 -07:00
|
|
|
lastModified = "2018-05-11"
|
2018-05-05 13:49:13 -07:00
|
|
|
|
|
|
|
sitemap :: Sitemap
|
2018-05-11 19:04:55 -07:00
|
|
|
sitemap = baseSitemap "https://jtmar.me/"
|
2018-05-05 18:07:53 -07:00
|
|
|
`withLastMod` lastModified
|
|
|
|
`withPriority` "1.0"
|
|
|
|
`withChangeFreq` "weekly"
|
2018-05-05 13:49:13 -07:00
|
|
|
|
|
|
|
page :: Html
|
2018-05-11 19:04:55 -07:00
|
|
|
page = simplePage "James Martin" "James" lastModified $
|
2018-05-05 13:49:13 -07:00
|
|
|
article
|
2018-05-06 20:19:34 -07:00
|
|
|
%> (h1 %>> "Home")
|
|
|
|
%> (p
|
|
|
|
%>> "Sorry! This site is currently under construction. "
|
|
|
|
%>> "However, you'll find that some of the other pages are more complete."
|
|
|
|
)
|