blob: 7fb72c0f0ac7049f4486d890dc5b8c3045dc84ba (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
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)
|