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,12 +96,13 @@ postMediumR mediumId = do
               --send mail to medium owner
               owner <- runDB $ getJust $ mediumOwner medium
               link <- ($ MediumR (commentOrigin temp)) <$> getUrlRender
+              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 follow the comment thread follow
+                    <p>To read the comment thread follow
                       <a href=#{link}>
                         this link
                       .

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