[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit 3fe2eed3c2f4728c4a71d2dc32a270e2b611b6a2
Author: John Goerzen <jgoerzen at complete.org>
Date:   Thu Jul 21 21:16:23 2005 +0100

    Don't build Sendmail on Windows

diff --git a/MissingH/Email/Sendmail.hs b/MissingH/Email/Sendmail.hs
index b6bd527..fa88341 100644
--- a/MissingH/Email/Sendmail.hs
+++ b/MissingH/Email/Sendmail.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {- arch-tag: Sendmail utility
 Copyright (C) 2004 John Goerzen <jgoerzen at complete.org>
 
@@ -28,9 +29,15 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 This Haskell module provides an interface to transmitting a mail message.
 
+This is not compatible with Windows at this time.
+
 Written by John Goerzen, jgoerzen\@complete.org
 -}
 
+#ifdef mingw32_HOST_OS
+module MissingH.Email.Sendmail
+where
+#else
 module MissingH.Email.Sendmail(sendmail)
 where
 
@@ -101,3 +108,5 @@ sendmail_worker args msg =
                       rv <- pOpen WriteToPipe sn args func
                       return $! rv
                          
+#endif
+

-- 
haskell-testpack