12 lines
265 B
Haskell
12 lines
265 B
Haskell
module Handler.ResetToken where
|
|
|
|
import Import
|
|
|
|
postResetTokenR :: Handler ()
|
|
postResetTokenR = do
|
|
Entity uid _ <- requireAuth
|
|
runDB $ do
|
|
token <- getToken
|
|
update uid [UserToken =. token]
|
|
setMessage "Token updated"
|
|
redirect ProfileR
|