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

View file

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