diff --git a/Handler/AlbumSettings.hs b/Handler/AlbumSettings.hs index 21fd4f0..2b83af3 100644 --- a/Handler/AlbumSettings.hs +++ b/Handler/AlbumSettings.hs @@ -63,17 +63,21 @@ postAlbumSettingsR albumId = do oldShares <- return (L.sort $ albumShares album) case newShares /= oldShares of True -> do + link <- ($ AlbumR albumId) <$> getUrlRender rcptIds <- return $ L.nub $ newShares L.\\ oldShares - rcptMails <- mapM (\uId -> do + mapM (\uId -> do user <- runDB $ getJust uId - return $ userEmail user + addr <- return $ userEmail user + sendMail addr "A new album was shared with you" $ + [shamlet| +
#{ownerName} was so kind to share his album #{albumTitle album} with you. +