nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

loop eliminated

Browse source
This commit is contained in:
nek0 2014-09-04 03:57:33 +02:00
parent 6f89c0bcb9
commit af6f0f8ec7
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/Activate.hs
View file

@ -32,7 +32,7 @@ getActivateR token = do
$(widgetFile "activate") $(widgetFile "activate")
_ -> do _ -> do
setMessage "Invalid token!" setMessage "Invalid token!"
redirect $ ActivateR token redirect $ HomeR
postActivateR :: Text -> Handler RepJson postActivateR :: Text -> Handler RepJson
postActivateR token = do postActivateR token = do