[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 19978101cd7ca4a30a88856f156aebe57234695a
Author: John Goerzen <jgoerzen at complete.org>
Date:   Tue Jul 4 22:47:32 2006 +0100

    Syntax fix

diff --git a/MissingH/Cmd.hs b/MissingH/Cmd.hs
index 291f34f..56e7f4b 100644
--- a/MissingH/Cmd.hs
+++ b/MissingH/Cmd.hs
@@ -346,17 +346,17 @@ safeSystem command args =
     do debugM (logbase ++ ".safeSystem")
                ("Running: " ++ command ++ " " ++ (show args))
 #if defined(__HUGS__) || defined(mingw32_HOST_OS)
-    ec <- rawSystem command args
-    case ec of
+       ec <- rawSystem command args
+       case ec of
             ExitSuccess -> return ()
             ExitFailure fc -> cmdfailed "safeSystem" command args fc
 #else
-    ec <- posixRawSystem command args
-    case ec of
-        Exited 0 -> return ()
-        Exited fc -> cmdfailed "safeSystem" command args fc
-        Terminated s -> cmdsignalled "safeSystem" command args s
-        Stopped s -> cmdsignalled "safeSystem" command args s
+       ec <- posixRawSystem command args
+       case ec of
+            Exited 0 -> return ()
+            Exited fc -> cmdfailed "safeSystem" command args fc
+            Terminated s -> cmdsignalled "safeSystem" command args s
+            Stopped s -> cmdsignalled "safeSystem" command args s
 #endif
 
 #ifndef mingw32_HOST_OS

-- 
haskell-testpack