diff options
Diffstat (limited to 'pkgs/development/libraries/haskell/CS173Tourney/sendmail.patch')
| -rw-r--r-- | pkgs/development/libraries/haskell/CS173Tourney/sendmail.patch | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/pkgs/development/libraries/haskell/CS173Tourney/sendmail.patch b/pkgs/development/libraries/haskell/CS173Tourney/sendmail.patch new file mode 100644 index 000000000000..7fb72c0f0ac7 --- /dev/null +++ b/pkgs/development/libraries/haskell/CS173Tourney/sendmail.patch @@ -0,0 +1,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) |