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

create data directory recursively

Browse source
This commit is contained in:
nek0 2014-08-15 16:20:25 +02:00
parent 77aa2bf488
commit e11dc798a5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/Activate.hs
View file

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