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

remove forgotten references

Browse source
This commit is contained in:
nek0 2014-09-07 09:23:12 +02:00
parent 94582c7f6a
commit bf3a8c1a0b
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Handler/AlbumSettings.hs
View file

@ -128,9 +128,17 @@ postAlbumDeleteR albumId = do
confirm <- lookupPostParam "confirm" confirm <- lookupPostParam "confirm"
case confirm of case confirm of
Just "confirm" -> do 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) mapM (\a -> runDB $ delete a) (albumContent album)
-- delete album
runDB $ delete albumId runDB $ delete albumId
-- delete files
liftIO $ removeDirectoryRecursive $ "static" </> "data" </> (T.unpack $ extractKey userId) </> (T.unpack $ extractKey albumId) liftIO $ removeDirectoryRecursive $ "static" </> "data" </> (T.unpack $ extractKey userId) </> (T.unpack $ extractKey albumId)
-- outro
setMessage "Album deleted succesfully" setMessage "Album deleted succesfully"
redirect $ HomeR redirect $ HomeR
_ -> do _ -> do