[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 d4ff6879093819e5f78ec39aeb6a1e6531c1721a
Author: John Goerzen <jgoerzen at complete.org>
Date:   Tue Jul 4 23:03:34 2006 +0100

    Compilation fixes

diff --git a/MissingH/Cmd.hs b/MissingH/Cmd.hs
index 3bfd2f0..36a5124 100644
--- a/MissingH/Cmd.hs
+++ b/MissingH/Cmd.hs
@@ -109,6 +109,7 @@ import MissingH.Logging.Logger
 #ifndef mingw32_HOST_OS
 import System.Posix.IO
 import System.Posix.Process
+import System.Posix.Signals
 #endif
 import System.Posix.Types
 import System.IO
@@ -353,8 +354,8 @@ safeSystem command args =
 #else
        ec <- posixRawSystem command args
        case ec of
-            Exited 0 -> return ()
-            Exited fc -> cmdfailed "safeSystem" command args fc
+            Exited ExitSuccess -> return ()
+            Exited (ExitFailure fc) -> cmdfailed "safeSystem" command args fc
             Terminated s -> cmdsignalled "safeSystem" command args s
             Stopped s -> cmdsignalled "safeSystem" command args s
 #endif

-- 
haskell-testpack