From b4b09cde379ae65be68a95602b196794334e2f9f Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 8 Sep 2014 01:47:17 +0200 Subject: [PATCH] some cleanup --- Handler/AlbumSettings.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Handler/AlbumSettings.hs b/Handler/AlbumSettings.hs index e3592fa..0ece880 100644 --- a/Handler/AlbumSettings.hs +++ b/Handler/AlbumSettings.hs @@ -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"