1 {-# LANGUAGE OverloadedStrings #-} 2 module Databrary.View.Login 3 ( htmlLogin 4 , htmlUserForm 5 ) where 6 7 import qualified Data.ByteString.Char8 as BSC 8 9 import Databrary.Model.Party.Types 10 import Databrary.HTTP.Form.View 11 import Databrary.Action 12 import Databrary.View.Form 13 14 import {-# SOURCE #-} Databrary.Controller.Login 15 16 htmlLogin :: RequestContext -> FormHtml f 17 htmlLogin = htmlForm "Login" postLogin HTML (do 18 field "email" $ inputText (Nothing :: Maybe String) 19 field "password" inputPassword 20 field "superuser" $ inputCheckbox False) 21 (const mempty) 22 23 htmlUserForm :: Account -> RequestContext -> FormHtml f 24 htmlUserForm a = htmlForm "Edit account" postUser HTML (do 25 field "auth" $ inputPassword 26 field "email" $ inputText $ Just $ BSC.unpack $ accountEmail a 27 "password" .:> do 28 field "once" inputPassword 29 field "again" inputPassword) 30 (const mempty)