remove forgotten references

2014-09-07 09:23:12 +02:00 · 2014-09-07 09:23:12 +02:00 · bf3a8c1a0b
commit bf3a8c1a0b
parent 94582c7f6a
1 changed files with 8 additions and 0 deletions
--- a/Handler/AlbumSettings.hs
+++ b/Handler/AlbumSettings.hs
@ -128,9 +128,17 @@ postAlbumDeleteR albumId = do
              confirm <- lookupPostParam "confirm"
              case confirm of
                Just "confirm" -> do
+                  -- remove album reference from user
+                  albumList <- return $ userAlbums owner
+                  newAlbumList <- return $ removeItem albumId albumList
+                  runDB $ update ownerId [UserAlbums =. newAlbumList]
+                  -- delete album content
                  mapM (\a -> runDB $ delete a) (albumContent album)
+                  -- delete album
                  runDB $ delete albumId
+                  -- delete files
                  liftIO $ removeDirectoryRecursive $ "static" </> "data" </> (T.unpack $ extractKey userId) </> (T.unpack $ extractKey albumId)
+                  -- outro
                  setMessage "Album deleted succesfully"
                  redirect $ HomeR
                _ -> do