forgot update

This commit is contained in:
nek0 2014-09-09 04:26:12 +02:00
parent a20d32ff34
commit 0e88b61947

View file

@ -136,6 +136,7 @@ getAdminAlbumDeleteR albumId = do
owner <- runDB $ getJust ownerId
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