Run.hs, ShellPrompt.sh: mv runInXTerm to ShellPrompt.hs

darcs-hash:20071019180900-f7719-6d6ef4a67f2ccae639e9e79c49fd80dd32d746c5.gz

1 files changed, 4 insertions, 9 deletions

diff --git a/Run.hs b/Run.hs
index 98da796..7fd9ff7 100644
--- a/Run.hs
+++ b/Run.hs
@@ -18,7 +18,6 @@
 module XMonadContrib.Run (
                           -- * Usage
                           -- $usage
-                          runInXTerm,
                           runProcessWithInput,
                           runProcessWithInputAndWait,
                           seconds
@@ -78,13 +77,9 @@ runProcessWithInputAndWait cmd args input timeout = do
     getProcessStatus True False pid
     return ()
 
-runInXTerm :: String -> X ()
-runInXTerm com = do
-  c <- io $ catch (getEnv "XTERMCMD") (const $ return "xterm")
-  spawn ("exec " ++ c ++ " -e " ++ com)
-
--- | Multiplies by ONE MILLION, for use with runProcessWithInputAndWait.
--- Use like:
--- > (5.5 `seconds`)
+{- | Multiplies by ONE MILLION, for use with runProcessWithInputAndWait.
+     Use like:
+     > (5.5 `seconds`)
+-}
 seconds :: Rational -> Int
 seconds = fromEnum . (* 1000000)