appTemplate :: BH.Html -> BH.Html -> ServerPart Response
appTemplate title body = ok $ toResponse $ renderHtml $ do
    BH.head $ do
        BH.title title
        BH.meta ! BA.httpEquiv "Content-Type"
                ! BA.content "text/html;charset=utf-8"
        BH.link ! BA.rel "stylesheet"
                ! BA.style "text/css"
                ! BA.href "static/css/stdtheme.css"
    BH.body $ do
        body
        (BH.div $ BH.a ! BA.href "/index" $ "Index")
appTemplate :: BH.Html -> BH.Html -> ServerPart Response
appTemplate title body = ok $ toResponse $ renderHtml $ do
    BH.head $ do
        BH.title title
        BH.meta ! BA.httpEquiv "Content-Type"
                ! BA.content "text/html;charset=utf-8"
        BH.link ! BA.rel "stylesheet"
                ! BA.style "text/css"
                ! BA.href "static/css/stdtheme.css"
    BH.body $ do
        body
        (BH.div $ BH.a ! BA.href "/index" $ "Index")
appTemplate title body = ok $ toResponse $ renderHtml $ do
    BH.head $ do
        BH.title title
        BH.meta ! BA.httpEquiv "Content-Type"
                ! BA.content "text/html;charset=utf-8"
        BH.link ! BA.rel "stylesheet"
                ! BA.style "text/css"
                ! BA.href "static/css/stdtheme.css"
    BH.body $ do
        body
        (BH.div $ BH.a ! BA.href "/index" $ "Index")