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)