loop eliminated

This commit is contained in:
nek0 2014-09-04 03:57:33 +02:00
parent 6f89c0bcb9
commit af6f0f8ec7

View file

@ -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