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

token now deletes on activation

Browse source
This commit is contained in:
nek0 2014-08-17 23:00:35 +02:00
parent a9bd79caf9
commit 88fc9feae7
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Handler/Activate.hs
View file

@ -15,5 +15,6 @@ getActivateR token = do
Just x -> do Just x -> do
userId <- runDB $ insert $ tokenUser (entityVal x) userId <- runDB $ insert $ tokenUser (entityVal x)
liftIO $ createDirectoryIfMissing True $ "data" </> (unpack $ extractKey userId) liftIO $ createDirectoryIfMissing True $ "data" </> (unpack $ extractKey userId)
runDB $ delete (entityKey x)
setMessage $ "User activated" setMessage $ "User activated"
redirect $ HomeR redirect $ HomeR