Disable TLS certificate verification to make it more worky.

[dead/halcyon.git] / src / Mail.hs

diff --git a/src/Mail.hs b/src/Mail.hs
index 3faa789a165a7235000db77dd93c5f706dad7de4..dcb686c4837f349ae9d29e367c5f3094f524484d 100644 (file)
--- a/src/Mail.hs
+++ b/src/Mail.hs
@@ -10,7 +10,6 @@ where
 import Control.Concurrent ( forkIO, newEmptyMVar, putMVar, readMVar )
 import Control.Exception ( evaluate )
 import Control.Monad ( liftM )
-import Data.List ( intercalate )
 import Data.Time ( formatTime, getZonedTime )
 import System.Console.CmdArgs.Default ( Default(..) )
 import System.Exit ( ExitCode(..) )
@@ -81,7 +80,7 @@ to_rfc822 m =
     formatted_headers =
       if null (headers m)
       then ""
-      else (intercalate "\n" (headers m)) ++ "\n"
+      else unlines (headers m)