where
import Control.Concurrent
-import Control.Concurrent.MVar
import Control.Exception (evaluate)
import Data.List (intercalate)
import System.Exit
to :: String }
deriving (Eq)
+default_headers :: [Header]
+default_headers = ["MIME-Version: 1.0",
+ "Content-type: text/plain; charset=UTF-8"]
+
-- |Showing a message will print it in roughly RFC-compliant
-- form. This form is sufficient for handing the message off to
-- sendmail.
errm <- newEmptyMVar
errs <- hGetContents errh
- forkIO $ hPutStr inh (show message) >> hClose inh
- forkIO $ evaluate (length outs) >> putMVar outm ()
- forkIO $ evaluate (length errs) >> putMVar errm ()
+ _ <- forkIO $ hPutStr inh (show message) >> hClose inh
+ _ <- forkIO $ evaluate (length outs) >> putMVar outm ()
+ _ <- forkIO $ evaluate (length errs) >> putMVar errm ()
readMVar outm
readMVar errm