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