This commit is contained in:
nek0 2017-08-06 04:42:57 +02:00
parent 1c3fee8b24
commit 909d3acc6e
2 changed files with 13 additions and 11 deletions

View file

@ -25,6 +25,7 @@ import Text.Markdown
import Yesod.Text.Markdown
import Yesod.RssFeed
import Yesod.AtomFeed
import Control.Monad (unless)
getMediumR :: MediumId -> Handler Html
getMediumR mediumId = do
@ -95,16 +96,17 @@ postMediumR mediumId = do
--send mail to medium owner
owner <- runDB $ getJust $ mediumOwner medium
link <- ($ MediumR (commentOrigin temp)) <$> getUrlRender
sendMail (userEmail owner) (userSl `T.append` " commented on your medium")
[shamlet|
<h1>Hello #{userSlug owner}
<p>#{userSl} commented on your medium #{mediumTitle medium}:
<p>#{commentContent temp}
<p>To follow the comment thread follow
<a href=#{link}>
this link
.
|]
unless (userId == mediumOwner medium) $
sendMail (userEmail owner) (userSl `T.append` " commented on your medium")
[shamlet|
<h1>Hello #{userSlug owner}
<p>#{userSl} commented on your medium #{mediumTitle medium}:
<p>#{commentContent temp}
<p>To read the comment thread follow
<a href=#{link}>
this link
.
|]
setMessage "Your Comment has been posted"
redirect $ MediumR mediumId
_ -> do

View file

@ -1,5 +1,5 @@
name: eidolon
version: 0.1.9.3
version: 0.1.10.0
synopsis: Image gallery in Yesod
homepage: https://eidolon.nek0.eu
license: AGPL-3