From 6c29880ea306202d94a316763ecae354607a8077 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Thu, 1 Nov 2007 08:04:08 +0100 Subject: Remove Config import from Run darcs-hash:20071101070408-a5988-7233c74d43ac56a382a8835f608b3435f2be344f.gz --- Run.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Run.hs b/Run.hs index f363911..cc3943a 100644 --- a/Run.hs +++ b/Run.hs @@ -27,16 +27,16 @@ module XMonadContrib.Run ( seconds ) where -import Control.Monad.State (Monad((>>), return), when) +import Control.Monad.State +import Control.Monad.Reader import System.Posix.Process (createSession, forkProcess, executeFile, - getProcessStatus) + getProcessStatus) import Control.Concurrent (threadDelay) import Control.Exception (try) import System.Exit (ExitCode(ExitSuccess), exitWith) import System.IO (IO, FilePath, hPutStr, hGetContents, hFlush, hClose) import System.Process (runInteractiveProcess, waitForProcess) -import XMonad (X, io, spawn) -import {-# SOURCE #-} Config (terminal) +import XMonad -- $usage -- For an example usage of runInTerm see XMonadContrib.SshPrompt @@ -108,8 +108,8 @@ unsafeSpawn = spawn -- | Run a given program in the preferred terminal emulator. This uses safeSpawn. safeRunInTerm :: String -> X () -safeRunInTerm command = safeSpawn terminal ("-e " ++ command) +safeRunInTerm command = asks terminal >>= \t -> safeSpawn t ("-e " ++ command) unsafeRunInTerm, runInTerm :: String -> X () -unsafeRunInTerm command = unsafeSpawn $ terminal ++ " -e " ++ command +unsafeRunInTerm command = asks terminal >>= \t -> unsafeSpawn $ t ++ " -e " ++ command runInTerm = unsafeRunInTerm -- cgit v1.2.3