diff --git a/Handler/Medium.hs b/Handler/Medium.hs index 658e048..23d2acb 100644 --- a/Handler/Medium.hs +++ b/Handler/Medium.hs @@ -66,6 +66,7 @@ postMediumR mediumId = do
To follow the comment thread follow
this link
+ .
|]
setMessage "Your Comment has been posted"
redirect $ MediumR mediumId
@@ -139,6 +140,7 @@ postCommentReplyR commentId = do
To see the comment thread follow
this link
+ .
|]
--send mail to medium owner
medium <- runDB $ getJust mediumId
@@ -151,6 +153,7 @@ postCommentReplyR commentId = do
To see the comment thread follow
this link
+ .
|]
setMessage "Your reply has been posted"
redirect $ MediumR mediumId
diff --git a/Handler/Signup.hs b/Handler/Signup.hs
index 4faf53e..cadbfc6 100644
--- a/Handler/Signup.hs
+++ b/Handler/Signup.hs
@@ -48,7 +48,7 @@ postSignupR = do
activateLink <- ($ ActivateR activatorText) <$> getUrlRender
sendMail (userEmail newUser) "Please activate your account!" $
[shamlet|
- Welcome to Eidolon!
+
Hello #{userSlug newUser} and Welcome to Eidolon!
To complete your sgnup please activate your account by visiting the following link:
#{activateLink}
|]