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

fixed database access

Browse source
This commit is contained in:
nek0 2014-08-13 18:16:31 +02:00
parent 97f72aca36
commit e2d9dac134
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Handler/Activate.hs
View file

@ -4,14 +4,12 @@ import Import as I
getActivateR :: Text -> Handler Html getActivateR :: Text -> Handler Html
getActivateR token = do getActivateR token = do
t <- runDB $ selectList [TokenToken ==. token] [] t <- runDB $ selectFirst [TokenToken ==. token] []
case t of case t of
[] -> do Nothing -> do
setMessage $ [shamlet|<pre>Invalid Token!|] setMessage $ [shamlet|<pre>Invalid Token!|]
redirect $ HomeR redirect $ HomeR
[x] -> do Just x -> do
_ <- runDB $ insert $ tokenUser (entityVal x) _ <- runDB $ insert $ tokenUser (entityVal x)
setMessage $ [shamlet|<pre>User activated|] setMessage $ [shamlet|<pre>User activated|]
redirect $ HomeR redirect $ HomeR
_ -> do
error "unexpected error"