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

some email aesthetics

Browse source
This commit is contained in:
nek0 2014-12-08 06:27:28 +01:00
parent 46b5c80f53
commit 2446940baf
2 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Handler/Medium.hs
View file

@ -66,6 +66,7 @@ postMediumR mediumId = do
<p>To follow the comment thread follow <p>To follow the comment thread follow
<a href=#{link}> <a href=#{link}>
this link this link
.
|] |]
setMessage "Your Comment has been posted" setMessage "Your Comment has been posted"
redirect $ MediumR mediumId redirect $ MediumR mediumId
@ -139,6 +140,7 @@ postCommentReplyR commentId = do
<p>To see the comment thread follow <p>To see the comment thread follow
<a href=#{link}> <a href=#{link}>
this link this link
.
|] |]
--send mail to medium owner --send mail to medium owner
medium <- runDB $ getJust mediumId medium <- runDB $ getJust mediumId
@ -151,6 +153,7 @@ postCommentReplyR commentId = do
<p>To see the comment thread follow <p>To see the comment thread follow
<a href=#{link}> <a href=#{link}>
this link this link
.
|] |]
setMessage "Your reply has been posted" setMessage "Your reply has been posted"
redirect $ MediumR mediumId redirect $ MediumR mediumId

2
Handler/Signup.hs
View file

@ -48,7 +48,7 @@ postSignupR = do
activateLink <- ($ ActivateR activatorText) <$> getUrlRender activateLink <- ($ ActivateR activatorText) <$> getUrlRender
sendMail (userEmail newUser) "Please activate your account!" $ sendMail (userEmail newUser) "Please activate your account!" $
[shamlet| [shamlet|
<h1> Welcome to Eidolon! <h1>Hello #{userSlug newUser} and Welcome to Eidolon!
To complete your sgnup please activate your account by visiting the following link: To complete your sgnup please activate your account by visiting the following link:
<a href="#{activateLink}">#{activateLink} <a href="#{activateLink}">#{activateLink}
|] |]