diff --git a/.gitignore b/.gitignore index 5c48818..b58f08a 100644 --- a/.gitignore +++ b/.gitignore @@ -12,3 +12,4 @@ yesod-devel/ cabal.sandbox.config .DS_Store *.swp +data* diff --git a/Handler/Activate.hs b/Handler/Activate.hs index adf9ef1..f7a3429 100644 --- a/Handler/Activate.hs +++ b/Handler/Activate.hs @@ -14,6 +14,6 @@ getActivateR token = do redirect $ HomeR Just x -> do userId <- runDB $ insert $ tokenUser (entityVal x) - liftIO $ createDirectory $ "static" > (unpack $ extractKey userId) + liftIO $ createDirectory $ "data" > (unpack $ extractKey userId) setMessage $ [shamlet|
User activated|] redirect $ HomeR diff --git a/Handler/NewAlbum.hs b/Handler/NewAlbum.hs index 582c59f..eda619b 100644 --- a/Handler/NewAlbum.hs +++ b/Handler/NewAlbum.hs @@ -28,7 +28,7 @@ postNewAlbumR = do case result of FormSuccess album -> do albumId <- runDB $ insert album - liftIO $ createDirectory $ "static" > (unpack $ extractKey $ Key userId) > (unpack $ extractKey albumId) + liftIO $ createDirectory $ "data" > (unpack $ extractKey $ Key userId) > (unpack $ extractKey albumId) setMessage $ [shamlet|Album successfully created|] redirect $ ProfileR $ Key userId