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| +

Hello #{userSlug user}! +

#{ownerName} was so kind to share his album #{albumTitle album} with you. +

You can find it + + here + . + |] ) rcptIds - mapM (\addr -> sendMail addr "A new album was shared with you" $ - [shamlet| -

Hi there! - #{ownerName} was so kind to share his album #{albumTitle album} with you. - |] - ) rcptMails False -> do return [()] -- nothing to do here