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

forgot update

Browse source
This commit is contained in:
nek0 2014-09-09 04:26:12 +02:00
parent a20d32ff34
commit 0e88b61947
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Handler/AdminAlbumSettings.hs
View file

@ -136,6 +136,7 @@ getAdminAlbumDeleteR albumId = do
owner <- runDB $ getJust ownerId owner <- runDB $ getJust ownerId
albumList <- return $ userAlbums owner albumList <- return $ userAlbums owner
newAlbumList <- return $ removeItem albumId albumList newAlbumList <- return $ removeItem albumId albumList
runDB $ update ownerId [UserAlbums =. newAlbumList]
-- delete album content -- delete album content
mapM (\a -> runDB $ delete a) (albumContent album) mapM (\a -> runDB $ delete a) (albumContent album)
-- delete album -- delete album