1 {-# LANGUAGE OverloadedStrings #-} 2 module View.Token 3 ( htmlPasswordToken 4 ) where 5 6 import Model.Id 7 import Model.Token 8 import Action 9 import View.Form 10 11 import {-# SOURCE #-} 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)