[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 c8baa80b6abf358f65918c2a698e40448f5d35ee
Author: John Goerzen <jgoerzen at complete.org>
Date:   Wed Oct 27 07:48:49 2004 +0100

    Removed testing program
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.5--patch-18)

diff --git a/ChangeLog b/ChangeLog
index 17a5d54..b4cf046 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,21 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.5
 #
 
+2004-10-27 01:48:49 GMT	John Goerzen <jgoerzen at complete.org>	patch-18
+
+    Summary:
+      Removed testing program
+    Revision:
+      missingh--head--0.5--patch-18
+
+
+    removed files:
+     mailprint.hs
+
+    modified files:
+     ChangeLog
+
+
 2004-10-27 01:48:35 GMT	John Goerzen <jgoerzen at complete.org>	patch-17
 
     Summary:
diff --git a/mailprint.hs b/mailprint.hs
deleted file mode 100644
index e213888..0000000
--- a/mailprint.hs
+++ /dev/null
@@ -1,24 +0,0 @@
--- arch-tag: print and mail doc from stdin
-import MissingH.Email.Sendmail
-import MissingH.Str
-import MissingH.Cmd
-import MissingH.Logging.Logger
-import MissingH.Logging.Handler.Syslog
-import System.IO
-
-recipients = ["jgoerzen at excelhustler.com"]
-printer = "isdept"
-
-main = do
-       updateGlobalLogger "MissingH.Cmd.safeSystem" (setLevel DEBUG)
-       updateGlobalLogger "MissingH.Cmd.pOpen3" (setLevel DEBUG)
-       hdlr <- openlog "mailprint" [PID] USER DEBUG
-       updateGlobalLogger rootLoggerName (setHandlers [hdlr])
-       c <- getContents
-       let msg = "From: MFG/Pro System <root at excelhustler.com>\n" ++
-             "To: " ++ (join "," recipients) ++ "\n" ++
-             "Subject: MFG/Pro Printer Output\n\n" ++ c
-       --sendmail Nothing recipients msg
-       pOpen WriteToPipe "cat" []
-         (\h -> hPutStr h ("FOO: " ++ c ++ ", FOO\n"))
-

-- 
haskell-testpack