From 1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 20 Mar 2016 22:38:44 +0100
Subject: use config-manager instead of ConfigFile

---
 src/server/SendMail.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

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