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)