eidolon/Handler/Activate.hs
2014-08-14 02:24:28 +02:00

20 lines
554 B
Haskell

module Handler.Activate where
import Import as I
import Data.Text
import System.Directory
import System.FilePath
getActivateR :: Text -> Handler Html
getActivateR token = do
t <- runDB $ selectFirst [TokenToken ==. token] []
case t of
Nothing -> do
setMessage $ [shamlet|<pre>Invalid Token!|]
redirect $ HomeR
Just x -> do
userId <- runDB $ insert $ tokenUser (entityVal x)
liftIO $ createDirectory $ "static" </> (unpack $ extractKey userId)
setMessage $ [shamlet|<pre>User activated|]
redirect $ HomeR