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/SendMail.hs | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'src/server/SendMail.hs')

diff --git a/src/server/SendMail.hs b/src/server/SendMail.hs
index e57f345..8f62bb1 100644
--- a/src/server/SendMail.hs
+++ b/src/server/SendMail.hs
@@ -24,15 +24,11 @@ sendMail mail = do
   return result
 
 getMimeMail :: Mail -> M.Mail
-getMimeMail (Mail from to subject plainBody htmlBody) =
+getMimeMail (Mail from to subject plainBody) =
   let fromMail = M.emptyMail (address from)
   in  fromMail
         { M.mailTo = map address to
-        , M.mailParts =
-            [ [ M.plainPart plainBody
-              , M.htmlPart htmlBody
-              ]
-            ]
+        , M.mailParts = [ [ M.plainPart plainBody ] ]
         , M.mailHeaders = [("Subject", subject)]
         }
 
-- 
cgit v1.2.3