24 lines
506 B
Haskell
24 lines
506 B
Haskell
module Page where
|
|
|
|
import Templates
|
|
|
|
import HtmlGen
|
|
|
|
lastModified :: String
|
|
lastModified = "2018-05-11"
|
|
|
|
sitemap :: Sitemap
|
|
sitemap = baseSitemap "https://jtmar.me/"
|
|
`withLastMod` lastModified
|
|
`withPriority` "1.0"
|
|
`withChangeFreq` "weekly"
|
|
|
|
page :: Html
|
|
page = simplePage "James Martin" "James" lastModified $
|
|
article
|
|
%> (h1 %>> "Home")
|
|
%> (p
|
|
%>> "Sorry! This site is currently under construction. "
|
|
%>> "However, you'll find that some of the other pages are more complete."
|
|
)
|