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