21 lines
829 B
Diff
21 lines
829 B
Diff
|
diff -rc 173tourney/server-src/Mail.hs 173tourney2/server-src/Mail.hs
|
||
|
|
*** 173tourney/server-src/Mail.hs 2009-11-05 13:00:58.971443217 +0100
|
||
|
|
--- 173tourney2/server-src/Mail.hs 2009-11-24 10:38:38.325669644 +0100
|
||
|
|
***************
|
||
|
|
*** 17,23 ****
|
||
|
|
-> IO Bool
|
||
|
|
mailFrom fromAddr toAddrs subject body = do
|
||
|
|
(stdin,stdout,stderr,process) <-
|
||
|
|
! runInteractiveCommand "/usr/sbin/sendmail -t"
|
||
|
|
let sendMail = do
|
||
|
|
hSetBinaryMode stdin False
|
||
|
|
hPutStrLn stdin $ "To: " ++ (concat $ intersperse ", " toAddrs)
|
||
|
|
--- 17,23 ----
|
||
|
|
-> IO Bool
|
||
|
|
mailFrom fromAddr toAddrs subject body = do
|
||
|
|
(stdin,stdout,stderr,process) <-
|
||
|
|
! runInteractiveCommand "sendmail -t"
|
||
|
|
let sendMail = do
|
||
|
|
hSetBinaryMode stdin False
|
||
|
|
hPutStrLn stdin $ "To: " ++ (concat $ intersperse ", " toAddrs)
|