matebeamter/src/View/Auth.hs

22 lines
321 B
Haskell
Raw Normal View History

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
2019-09-08 00:37:50 +00:00
type AuthPage = H.Html
2019-09-08 15:27:38 +00:00
authPage
:: L10n
-> Locale
-> AuthPage
authPage l10n locale = scaffold l10n locale initPage $ do
2019-09-08 00:37:50 +00:00
H.p $ "Test"