X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FMail.hs;fp=src%2FMail.hs;h=dcb686c4837f349ae9d29e367c5f3094f524484d;hp=3faa789a165a7235000db77dd93c5f706dad7de4;hb=aa76db464725dace34b87f452f9ebb9675226e40;hpb=c9a905e0ab69317448f261377ab9031fb83443b4

diff --git a/src/Mail.hs b/src/Mail.hs
index 3faa789..dcb686c 100644
--- 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)