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|
Invalid Token!|]
      redirect $ HomeR
    [x] -> do
      _ <- runDB $ insert $ tokenUser (entityVal x)
      setMessage $ [shamlet|
User activated|]
      redirect $ HomeR
    _ -> do
      error "unexpected error"