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-09-22 15:10:22 -07:00
|
|
|
lastModified = "2018-09-22"
|
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
|
2018-09-22 15:10:22 -07:00
|
|
|
%>> "I have not yet released any blog posts, "
|
|
|
|
|
%>> "or even finished the page generator to be able to make them. "
|
2018-09-19 12:42:56 -07:00
|
|
|
%>> "However, the other pages still are a bit more complete. "
|
2018-05-06 20:19:34 -07:00
|
|
|
)
|
