2019-09-08 00:37:50 +00:00
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
|
module View.Auth where
|
|
|
|
|
|
|
|
|
|
import qualified Text.Blaze.Html5 as H
|
|
|
|
|
|
2019-09-08 15:27:38 +00:00
|
|
|
import Data.Text.I18n
|
|
|
|
|
|
|
|
|
|
-- internal imports
|
|
|
|
|
|
2019-09-08 00:37:50 +00:00
|
|
|
import Types
|
|
|
|
|
|
2019-09-08 15:27:38 +00:00
|
|
|
import View.Scaffold
|
|
|
|
|
|
|
|
|
|
authPage
|
|
|
|
|
:: L10n
|
|
|
|
|
-> Locale
|
|
|
|
|
-> AuthPage
|
2019-09-11 04:27:54 +00:00
|
|
|
authPage l10n locale = scaffold
|
|
|
|
|
l10n
|
|
|
|
|
locale
|
|
|
|
|
(initPage $
|
|
|
|
|
translate "Matebeamter" <>
|
|
|
|
|
" - " <>
|
|
|
|
|
translate "Authentication"
|
|
|
|
|
)
|
|
|
|
|
$ do
|
|
|
|
|
H.p $ "Test"
|
|
|
|
|
where
|
|
|
|
|
translate = localize l10n locale . gettext
|
