--------------------------------------------------------------------------------

myIndexPage :: Html -> Html -> Html -> Html
myIndexPage h sub content = do
  myHeader h sub
  div ! class_ "content" $ do
    content
myIndexPage :: Html -> Html -> Html -> Html
myIndexPage h sub content = do
  myHeader h sub
  div ! class_ "content" $ do
    content
myIndexPage h sub content = do
  myHeader h sub
  div ! class_ "content" $ do
    content