fixed error with account reactivation

This commit is contained in:
nek0 2015-02-12 00:15:35 +01:00
parent 1dd08f9f59
commit ee8b46b26b
2 changed files with 8 additions and 7 deletions

View file

@ -23,7 +23,7 @@ import Data.Text.Encoding
getReactivateR :: Handler Html getReactivateR :: Handler Html
getReactivateR = do getReactivateR = do
(reactivateWidget, enctype) <- generateFormPost reactivateForm (reactivateWidget, enctype) <- generateFormPost reactivateForm
defaultLayout $ do formLayout $ do
setTitle "Eidolon :: Reactivate account" setTitle "Eidolon :: Reactivate account"
$(widgetFile "reactivate") $(widgetFile "reactivate")

View file

@ -1,8 +1,9 @@
$newline always $newline always
<div id="header" class="item" data-width="400">
<div class="inner">
<h3>Reset Password
<h3>Reset Password <form method="post" enctype=#{enctype}>
<form method="post" enctype=#{enctype}>
^{reactivateWidget} ^{reactivateWidget}
<div> <div>
<input type=submit value="Send"> <input type=submit value="Send">