From 2446940bafbb8afd38e5cf9841254dd0e5f05549 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Mon, 8 Dec 2014 06:27:28 +0100
Subject: [PATCH] some email aesthetics

---
 Handler/Medium.hs | 3 +++
 Handler/Signup.hs | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

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
                   <p>To follow the comment thread follow
                     <a href=#{link}>
                       this link
+                    .
                   |]
               setMessage "Your Comment has been posted"
               redirect $ MediumR mediumId
@@ -139,6 +140,7 @@ postCommentReplyR commentId = do
                   <p>To see the comment thread follow
                     <a href=#{link}>
                       this link
+                    .
                   |]
               --send mail to medium owner
               medium <- runDB $ getJust mediumId
@@ -151,6 +153,7 @@ postCommentReplyR commentId = do
                   <p>To see the comment thread follow
                     <a href=#{link}>
                       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|
-          <h1> Welcome to Eidolon!
+          <h1>Hello #{userSlug newUser} and Welcome to Eidolon!
           To complete your sgnup please activate your account by visiting the following link:
           <a href="#{activateLink}">#{activateLink}
         |]