token now deletes on activation

2014-08-17 23:00:35 +02:00 · 2014-08-17 23:00:35 +02:00 · 88fc9feae7
commit 88fc9feae7
parent a9bd79caf9
1 changed files with 1 additions and 0 deletions
--- a/Handler/Activate.hs
+++ b/Handler/Activate.hs
@ -15,5 +15,6 @@ getActivateR token = do
    Just x -> do
      userId <- runDB $ insert $ tokenUser (entityVal x)
      liftIO $ createDirectoryIfMissing True $ "data" </> (unpack $ extractKey userId)
+      runDB $ delete (entityKey x)
      setMessage $ "User activated"
      redirect $ HomeR