eidolon/Handler/Activate.hs

19 lines
477 B
Haskell
Raw Normal View History

2014-08-12 12:42:25 +00:00
module Handler.Activate where
import Import as I
import Data.Text as T
getActivateR :: String -> Handler Html
getActivateR token = do
t <- runDB $ selectList [TokenToken ==. (T.pack token)] []
case t of
[] -> do
setMessage $ [shamlet|<pre>Invalid Token!|]
redirect $ HomeR
[x] -> do
_ <- runDB $ insert $ tokenUser (entityVal x)
setMessage $ [shamlet|<pre>User activated|]
redirect $ HomeR
_ -> do
error "unexpected error"