From 0a4d3c8f12dc5797a919a00b6bcaf759947687cc Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 17 Jun 2018 23:24:47 +0200
Subject: Add ouest france parser

---
 src/Mail.hs | 50 --------------------------------------------------
 1 file changed, 50 deletions(-)
 delete mode 100644 src/Mail.hs

(limited to 'src/Mail.hs')

diff --git a/src/Mail.hs b/src/Mail.hs
deleted file mode 100644
index 1145f9f..0000000
--- a/src/Mail.hs
+++ /dev/null
@@ -1,50 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module Mail
-  ( send
-  ) where
-
-import Data.Text (Text)
-import qualified Data.Text as T
-import qualified Data.Text.Lazy as LT
-import Data.Text.Lazy.Builder (toLazyText, fromText)
-import Data.Either (isLeft)
-
-import Control.Exception (SomeException, try)
-import Control.Arrow (left)
-
-import qualified Network.Mail.Mime as Mime
-
-import Model.Mail (Mail)
-import qualified Model.Mail as Mail
-
-send :: Mail -> IO (Either Text ())
-send mail = do
-  result <- left (T.pack . show) <$> (try (Mime.renderSendMail . getMimeMail $ mail) :: IO (Either SomeException ()))
-  if isLeft result
-    then putStrLn ("Error sending the following email:" ++ (show mail))
-    else return ()
-  return result
-
-getMimeMail :: Mail -> Mime.Mail
-getMimeMail mail =
-  let fromMail = Mime.emptyMail . address . Mail.from $ mail
-  in  fromMail
-        { Mime.mailTo = map address . Mail.to $ mail
-        , Mime.mailParts =
-            [ [ Mime.plainPart . strictToLazy . Mail.plainBody $ mail
-              , Mime.htmlPart . strictToLazy . Mail.htmlBody $ mail
-              ]
-            ]
-        , Mime.mailHeaders = [("Subject", Mail.subject mail)]
-        }
-
-address :: Text -> Mime.Address
-address addressEmail =
-  Mime.Address
-    { Mime.addressName = Nothing
-    , Mime.addressEmail = addressEmail
-    }
-
-strictToLazy :: Text -> LT.Text
-strictToLazy = toLazyText . fromText
-- 
cgit v1.2.3