From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 7 Nov 2012 03:10:08 +0000 (-0500)
Subject: Supply the "to" address to sendmail on the commandline.
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=commitdiff_plain;h=f280595f9be2f48ad71504b6977454a216a7734d

Supply the "to" address to sendmail on the commandline.
---

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