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

altered album share email

Browse source
This commit is contained in:
nek0 2014-12-08 06:26:11 +01:00
parent 0a253aa955
commit 38ade0ad60
1 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
Handler/AlbumSettings.hs
View file

@ -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|
<h1>Hello #{userSlug user}!
<p>#{ownerName} was so kind to share his album #{albumTitle album} with you.
<p>You can find it
<a href=#{link}>
here
.
|]
) rcptIds
mapM (\addr -> sendMail addr "A new album was shared with you" $
[shamlet|
<h1>Hi there!
#{ownerName} was so kind to share his album #{albumTitle album} with you.
|]
) rcptMails
False -> do
return [()]
-- nothing to do here