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)