changed storage location of files

.gitignore

@@ -12,4 +12,4 @@ yesod-devel/
 cabal.sandbox.config
 .DS_Store
 *.swp
-data*
+static/data*

Handler/Activate.hs

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

Handler/NewAlbum.hs

@@ -28,7 +28,7 @@ postNewAlbumR = do
       case result of
         FormSuccess album -> do
           albumId <- runDB $ insert album
-          liftIO $ createDirectory $ "data" </> (unpack $ extractKey userId) </> (unpack $ extractKey albumId)
+          liftIO $ createDirectory $ "static" </> "data" </> (unpack $ extractKey userId) </> (unpack $ extractKey albumId)
           setMessage $ "Album successfully created"
           redirect $ ProfileR userId
 

Handler/Upload.hs

@@ -59,7 +59,7 @@ postUploadR = do
 writeOnDrive :: FileInfo -> UserId -> AlbumId -> Handler FilePath
 writeOnDrive file userId albumId = do
   filename <- return $ fileName file
-  path <- return $ "data"
+  path <- return $ "static" </> "data"
     </> (unpack $ extractKey userId)
     </> (unpack $ extractKey albumId)
     </> (unpack filename)