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