sendmail patch for CS173Tourney
svn path=/nixpkgs/trunk/; revision=18586
This commit is contained in:
parent
d634b32abf
commit
4a0fd9efbb
@ -9,7 +9,7 @@ cabal.mkDerivation (self : {
|
|||||||
rev = "dce044761b008cb685a675a1f35be6aff66fed21" ;
|
rev = "dce044761b008cb685a675a1f35be6aff66fed21" ;
|
||||||
md5 = "21e5e5c2e184b4b70696d4d6c60e51d3";
|
md5 = "21e5e5c2e184b4b70696d4d6c60e51d3";
|
||||||
};
|
};
|
||||||
|
patches = [./sendmail.patch];
|
||||||
propagatedBuildInputs = [json time hslogger Crypto base64string CouchDB WebServer WebServerExtras];
|
propagatedBuildInputs = [json time hslogger Crypto base64string CouchDB WebServer WebServerExtras];
|
||||||
meta = {
|
meta = {
|
||||||
description = "";
|
description = "";
|
||||||
|
@ -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)
|
Loading…
x
Reference in New Issue
Block a user