[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36
John Goerzen
jgoerzen at complete.org
Fri Apr 23 15:10:57 UTC 2010
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
More information about the Pkg-haskell-commits
mailing list