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

some cleanup

Browse source
This commit is contained in:
nek0 2014-09-08 01:47:17 +02:00
parent b3d1108581
commit b4b09cde37
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Handler/AlbumSettings.hs
View file

@ -53,14 +53,12 @@ postAlbumSettingsR albumId = do
FormSuccess temp -> do
aId <- runDB $ update albumId
[ AlbumTitle =. albumTitle temp
, AlbumOwner =. albumOwner temp
, AlbumContent =. albumContent temp
, AlbumSamplePic =. albumSamplePic temp
]
setMessage "Album settings changed succesfully"
redirect $ AlbumR albumId
_ -> do
setMessage "There was an error changing the settings"
setMessage "There was an error while changing the settings"
redirect $ AlbumSettingsR albumId
False -> do
setMessage "You must own this album to change its settings"