sendmail patch for CS173Tourney

svn path=/nixpkgs/trunk/; revision=18586

pkgs/development/libraries/haskell/CS173Tourney/default.nix

@@ -9,7 +9,7 @@ cabal.mkDerivation (self : {
     rev = "dce044761b008cb685a675a1f35be6aff66fed21" ;
     md5 = "21e5e5c2e184b4b70696d4d6c60e51d3";
   };
-
+  patches = [./sendmail.patch]; 
   propagatedBuildInputs = [json time hslogger Crypto base64string CouchDB WebServer WebServerExtras];
   meta = {
     description = "";

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)