fix #51

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|
-                  <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

eidolon.cabal

@@ -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