1 files changed, 2 insertions, 6 deletions
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)]
         }