[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 b41c0c28dec30b03315d121ec710deff80916088
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sun Dec 3 09:24:43 2006 +0100

    Renamed MissingH.Cmd to System.Cmd.Utils

diff --git a/MissingH.cabal b/MissingH.cabal
index 6c10b1a..9ccdf79 100644
--- a/MissingH.cabal
+++ b/MissingH.cabal
@@ -19,7 +19,7 @@ Exposed-Modules: MissingH.Str, MissingH.IO, MissingH.IO.Binary, MissingH.List,
     MissingH.Hsemail.Rfc2822,
   MissingH.Regex.Pesco,
     MissingH.Str.CSV,
-  MissingH.Cmd,
+  System.Cmd.Utils,
   MissingH.ProgressTracker,
   MissingH.ProgressMeter,
   MissingH.Quantity,
diff --git a/MissingH/Debian.hs b/MissingH/Debian.hs
index 176367f..4d696af 100644
--- a/MissingH/Debian.hs
+++ b/MissingH/Debian.hs
@@ -39,7 +39,7 @@ module MissingH.Debian (-- * Control or Similar File Utilities
 where
 import System.Cmd
 import MissingH.Debian.ControlParser
-import MissingH.Cmd
+import System.Cmd.Utils
 import MissingH.Str
 import System.IO.Unsafe
 import System.Exit
diff --git a/MissingH/Email/Sendmail.hs b/MissingH/Email/Sendmail.hs
index 4b3daf2..4421053 100644
--- a/MissingH/Email/Sendmail.hs
+++ b/MissingH/Email/Sendmail.hs
@@ -40,7 +40,7 @@ where
 module MissingH.Email.Sendmail(sendmail)
 where
 
-import MissingH.Cmd
+import System.Cmd.Utils
 import System.Directory
 import System.IO
 import System.IO.Error
@@ -76,11 +76,11 @@ and transmits it using the system's MTA, sendmail.
 If @sendmail@ is on the @PATH@, it will be used; otherwise, a list of system
 default locations will be searched.
 
-A failure will be logged, since this function uses 'MissingH.Cmd.safeSystem'
+A failure will be logged, since this function uses 'System.Cmd.Utils.safeSystem'
 internally.
 
 This function will first try @sendmail at .  If it does not exist, an error is
-logged under @MissingH.Cmd.pOpen3@ and various default @sendmail@ locations
+logged under @System.Cmd.Utils.pOpen3@ and various default @sendmail@ locations
 are tried.  If that still fails, an error is logged and an exception raised.
 
  -}
diff --git a/MissingH/Logging/Logger.hs b/MissingH/Logging/Logger.hs
index 2409976..51e5533 100644
--- a/MissingH/Logging/Logger.hs
+++ b/MissingH/Logging/Logger.hs
@@ -234,7 +234,7 @@ logTree =
 {- | Given a name, return all components of it, starting from the root.
 Example return value: 
 
->["", "MissingH", "MissingH.Cmd", "MissingH.Cmd.pOpen"]
+>["", "MissingH", "System.Cmd.Utils", "System.Cmd.Utils.pOpen"]
 
 -}
 componentsOfName :: String -> [String]
diff --git a/MissingH/Cmd.hs b/src/System/Cmd/Utils.hs
similarity index 98%
rename from MissingH/Cmd.hs
rename to src/System/Cmd/Utils.hs
index 22d60c3..08fabeb 100644
--- a/MissingH/Cmd.hs
+++ b/src/System/Cmd/Utils.hs
@@ -19,7 +19,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 -}
 
 {- |
-   Module     : MissingH.Cmd
+   Module     : System.Cmd.Utils
    Copyright  : Copyright (C) 2004-2006 John Goerzen
    License    : GNU GPL, version 2 or above
 
@@ -36,11 +36,11 @@ Please note: Most of this module is not compatible with Hugs.
 Command lines executed will be logged using "MissingH.Logging.Logger" at the
 DEBUG level.  Failure messages will be logged at the WARNING level in addition
 to being raised as an exception.  Both are logged under
-\"MissingH.Cmd.funcname\" -- for instance,
-\"MissingH.Cmd.safeSystem\".  If you wish to suppress these messages
+\"System.Cmd.Utils.funcname\" -- for instance,
+\"System.Cmd.Utils.safeSystem\".  If you wish to suppress these messages
 globally, you can simply run:
 
-> updateGlobalLogger "MissingH.Cmd.safeSystem"
+> updateGlobalLogger "System.Cmd.Utils.safeSystem"
 >                     (setLevel CRITICAL)
 
 See also: 'MissingH.Logging.Logger.updateGlobalLogger',
@@ -73,7 +73,7 @@ Most of this module will be incompatible with Windows.
 -}
 
 
-module MissingH.Cmd(-- * High-Level Tools
+module System.Cmd.Utils(-- * High-Level Tools
                     PipeHandle(..),
                     safeSystem,
 #ifndef mingw32_HOST_OS
@@ -122,7 +122,7 @@ import qualified System.Posix.Signals
 
 data PipeMode = ReadFromPipe | WriteToPipe
 
-logbase = "MissingH.Cmd"
+logbase = "System.Cmd.Utils"
 
 {- | Return value from 'pipeFrom', 'pipeLinesFrom', 'pipeTo', or
 'pipeBoth'.  Contains both a ProcessID and the original command that was
@@ -370,7 +370,7 @@ on POSIX platforms.
 Like system(3), this command ignores SIGINT and SIGQUIT and blocks SIGCHLD
 during its execution.
 
-Logs as MissingH.Cmd.posixRawSystem -}
+Logs as System.Cmd.Utils.posixRawSystem -}
 posixRawSystem :: FilePath -> [String] -> IO ProcessStatus
 posixRawSystem program args =
     do debugM (logbase ++ ".posixRawSystem")
@@ -412,7 +412,7 @@ to do so will lead to resource leakage (zombie processes).
 
 This function does nothing with signals.  That too is up to you.
 
-Logs as MissingH.Cmd.forkRawSystem -}
+Logs as System.Cmd.Utils.forkRawSystem -}
 forkRawSystem :: FilePath -> [String] -> IO ProcessID
 forkRawSystem program args =
     do debugM (logbase ++ ".forkRawSystem")

-- 
haskell-testpack