loop eliminated
This commit is contained in:
parent
6f89c0bcb9
commit
af6f0f8ec7
1 changed files with 1 additions and 1 deletions
|
@ -32,7 +32,7 @@ getActivateR token = do
|
|||
$(widgetFile "activate")
|
||||
_ -> do
|
||||
setMessage "Invalid token!"
|
||||
redirect $ ActivateR token
|
||||
redirect $ HomeR
|
||||
|
||||
postActivateR :: Text -> Handler RepJson
|
||||
postActivateR token = do
|
||||
|
|
Loading…
Reference in a new issue