diff --git a/Handler/Medium.hs b/Handler/Medium.hs index 470fa83..f651a8d 100755 --- a/Handler/Medium.hs +++ b/Handler/Medium.hs @@ -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| -
#{userSl} commented on your medium #{mediumTitle medium}: -
#{commentContent temp} -
To follow the comment thread follow
-
- this link
- .
- |]
+ unless (userId == mediumOwner medium) $
+ sendMail (userEmail owner) (userSl `T.append` " commented on your medium")
+ [shamlet|
+ #{userSl} commented on your medium #{mediumTitle medium}:
+ #{commentContent temp}
+ Hello #{userSlug owner}
+