X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FMail.hs;h=3f519ccd8f0d0e22714a248a6595af378ca947eb;hp=ecfa2af93b54fad18d8dabfb3877778c7175ae31;hb=d7c6b5499c0969b6e488d9fc583f93bbb4e3d4c7;hpb=eed0d7b0f8ef28864c00925beef5c8853bcd44cc

diff --git a/src/Mail.hs b/src/Mail.hs
index ecfa2af..3f519cc 100644
--- a/src/Mail.hs
+++ b/src/Mail.hs
@@ -5,19 +5,18 @@ module Mail (
   default_headers,
   print_sendmail_result,
   rfc822_now,
-  sendmail
-  )
+  sendmail )
 where
 
-import Control.Concurrent
-import Control.Exception (evaluate)
-import Control.Monad (liftM)
-import Data.List (intercalate)
-import Data.Time (formatTime, getZonedTime)
-import System.Exit
-import System.Locale (defaultTimeLocale, rfc822DateFormat)
-import System.Process
-import System.IO (hClose, hGetContents, hPutStr)
+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.Exit ( ExitCode(..) )
+import System.Locale ( defaultTimeLocale, rfc822DateFormat )
+import System.Process ( runInteractiveProcess, waitForProcess )
+import System.IO ( hClose, hGetContents, hPutStr )
 
 
 type Header = String