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