[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 8800f1b4ed60f08629a5c7f60a4466225af0bae9
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sat Dec 11 05:44:26 2004 +0100

    Added debugging to popen
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.7--patch-63)

diff --git a/ChangeLog b/ChangeLog
index 36673bb..c5049fb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2004-12-10 22:44:26 GMT	John Goerzen <jgoerzen at complete.org>	patch-63
+
+    Summary:
+      Added debugging to popen
+    Revision:
+      missingh--head--0.7--patch-63
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/Cmd.hs
+
+
 2004-12-10 00:01:05 GMT	John Goerzen <jgoerzen at complete.org>	patch-62
 
     Summary:
diff --git a/libsrc/MissingH/Cmd.hs b/libsrc/MissingH/Cmd.hs
index 4efd5ed..791f538 100644
--- a/libsrc/MissingH/Cmd.hs
+++ b/libsrc/MissingH/Cmd.hs
@@ -101,6 +101,8 @@ pOpen :: PipeMode -> FilePath -> [String] ->
 pOpen pm fp args func =
         do
         pipepair <- createPipe
+        debugM (logbase ++ ".pOpen3")
+               ("Running: " ++ fp ++ " " ++ (show args))
         case pm of
          ReadFromPipe -> do
                          let callfunc _ = do

-- 
haskell-testpack