1 {-# LANGUAGE OverloadedStrings #-} 2 module Databrary.View.Token 3 ( htmlPasswordToken 4 ) where 5 6 import Databrary.Model.Id 7 import Databrary.Model.Token 8 import Databrary.Action 9 import Databrary.View.Form 10 11 import {-# SOURCE #-} Databrary.Controller.Token 12 13 htmlPasswordToken :: Id LoginToken -> RequestContext -> FormHtml f 14 htmlPasswordToken tok = htmlForm "Reset Password" 15 postPasswordToken (HTML, tok) 16 (do 17 field "once" inputPassword 18 field "again" inputPassword) 19 (const mempty)