X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FMail.hs;h=c54255a56a26a1e620a0f53f0d7386545ed55161;hp=2e86a204e003ceda90bfb32994fe4e83f386ad48;hb=f280595f9be2f48ad71504b6977454a216a7734d;hpb=fdc80f514bfe9005f55768f63b619ad170ad1b56

diff --git a/src/Mail.hs b/src/Mail.hs
index 2e86a20..c54255a 100644
--- a/src/Mail.hs
+++ b/src/Mail.hs
@@ -69,7 +69,8 @@ rfc822_now = do
 sendmail :: FilePath -> Message -> IO (String, String, ExitCode)
 sendmail sendmail_path message = do
   let sendmail_args = ["-f",
-                       (from message)]
+                       (from message),
+                       (to message)]
 
   (inh, outh, errh, ph) <-
       runInteractiveProcess sendmail_path sendmail_args Nothing Nothing