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)