1 {-# LANGUAGE OverloadedStrings #-}
    2 module Databrary.View.Register
    3   ( htmlRegister
    4   , htmlPasswordReset
    5   ) where
    6 
    7 import Databrary.Action
    8 import Databrary.View.Form
    9 
   10 import {-# SOURCE #-} Databrary.Controller.Register
   11 
   12 htmlRegister :: RequestContext -> FormHtml f
   13 htmlRegister = htmlForm "Register" postRegister HTML
   14   (do
   15     field "prename" $ inputText (Nothing :: Maybe String)
   16     field "name" $ inputText (Nothing :: Maybe String)
   17     field "email" $ inputText (Nothing :: Maybe String)
   18     field "affiliation" $ inputText (Nothing :: Maybe String)
   19     field "agreement" $ inputCheckbox False)
   20   (const mempty)
   21 
   22 htmlPasswordReset :: RequestContext -> FormHtml f
   23 htmlPasswordReset = htmlForm "Password Reset" postPasswordReset HTML
   24   (field "email" $ inputText (Nothing :: Maybe String))
   25   (const mempty)