{-# LANGUAGE OverloadedStrings #-}
module Web.Views.Logout
(viewLogout) where
import Web.Views.Home
import Text.Blaze.Html5 as H
import Text.Blaze.Html5.Attributes as A
viewLogout :: H.Html
viewLogout = docTypeHtml $ do
H.head $ do
getMenuBarHeader
H.link ! A.rel "stylesheet" ! A.href "/css/logout.css"
H.script ! A.src "/js/logout.js" ! A.type_ "text/javascript" $ ""
H.body ! A.onload "logoutUser()" $ do
H.div ! A.class_ "mdl-layout mdl-js-layout mdl-layout--fixed-drawer" $ do
getMenuBarBody
H.hgroup $ do
H.form $ do
H.h3 $ do
H.a ! A.href "/home" $ "Zurück zur Startseite"