From a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 12 Sep 2015 23:57:16 +0200
Subject: Adding UI income read-only

---
 src/server/View/Mail/SignIn.hs | 24 +-----------------------
 1 file changed, 1 insertion(+), 23 deletions(-)

(limited to 'src/server/View')

diff --git a/src/server/View/Mail/SignIn.hs b/src/server/View/Mail/SignIn.hs
index fc73dae..dca261d 100644
--- a/src/server/View/Mail/SignIn.hs
+++ b/src/server/View/Mail/SignIn.hs
@@ -8,10 +8,6 @@ import Data.Text (Text)
 import qualified Data.Text.Lazy as LT
 import Data.Text.Lazy.Builder (toLazyText, fromText)
 
-import Text.Blaze.Html
-import Text.Blaze.Html5
-import Text.Blaze.Html.Renderer.Text (renderHtml)
-
 import Model.Database (User(..))
 import qualified Model.Mail as M
 import Model.Message.Key
@@ -24,28 +20,10 @@ getMail user url to =
     , M.to = to
     , M.subject = (getMessage SignInMailTitle)
     , M.plainBody = plainBody user url
-    , M.htmlBody = htmlBody user url
     }
 
 plainBody :: User -> Text -> LT.Text
-plainBody user url =
-  LT.intercalate
-    "\n"
-    [ strictToLazy (getParamMessage [userName user] HiMail)
-    , ""
-    , strictToLazy (getMessage SignInLinkMail)
-    , strictToLazy url
-    ]
-
-htmlBody :: User -> Text -> LT.Text
-htmlBody user url =
-  renderHtml . docTypeHtml . body $ do
-    toHtml $ strictToLazy (getParamMessage [userName user] HiMail)
-    br
-    br
-    toHtml $ strictToLazy (getMessage SignInLinkMail)
-    br
-    toHtml url
+plainBody user url = strictToLazy (getParamMessage [userName user, url] SignInMail)
 
 strictToLazy :: Text -> LT.Text
 strictToLazy = toLazyText . fromText
-- 
cgit v1.2.3