matebeamter/src/View/Auth.hs
2019-09-11 06:27:54 +02:00

32 lines
470 B
Haskell

{-# LANGUAGE OverloadedStrings #-}
module View.Auth where
import qualified Text.Blaze.Html5 as H
import Data.Text.I18n
-- internal imports
import Types
import View.Scaffold
type AuthPage = H.Html
authPage
:: L10n
-> Locale
-> AuthPage
authPage l10n locale = scaffold
l10n
locale
(initPage $
translate "Matebeamter" <>
" - " <>
translate "Authentication"
)
$ do
H.p $ "Test"
where
translate = localize l10n locale . gettext