indexPage :: ServerPart Response
indexPage = appTemplate "Index" $ BH.div $ do
    BH.p $ BH.a ! BA.href "/home"   $ "Home."
    BH.p $ BH.a ! BA.href "/table"  $ "Look at a lovely table"
    BH.p $ BH.a ! BA.href "/form"   $ "Play with a form"
    BH.p $ BH.a ! BA.href "/good"   $ "Star wars secret"
indexPage :: ServerPart Response
indexPage = appTemplate "Index" $ BH.div $ do
    BH.p $ BH.a ! BA.href "/home"   $ "Home."
    BH.p $ BH.a ! BA.href "/table"  $ "Look at a lovely table"
    BH.p $ BH.a ! BA.href "/form"   $ "Play with a form"
    BH.p $ BH.a ! BA.href "/good"   $ "Star wars secret"
indexPage = appTemplate "Index" $ BH.div $ do
    BH.p $ BH.a ! BA.href "/home"   $ "Home."
    BH.p $ BH.a ! BA.href "/table"  $ "Look at a lovely table"
    BH.p $ BH.a ! BA.href "/form"   $ "Play with a form"
    BH.p $ BH.a ! BA.href "/good"   $ "Star wars secret"