From ee764d929051f70a1c3eabafc345f4e5d205cbed Mon Sep 17 00:00:00 2001
From: gwern0 <gwern0@gmail.com>
Date: Wed, 24 Oct 2007 02:39:11 +0200
Subject: Run.hs: do my usual segregation into safe and unsafe runInTerms

darcs-hash:20071024003911-f7719-210cd66ba2f61d9a9f608c423455150e0bcbd9bd.gz
---
 Run.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/Run.hs b/Run.hs
index 5afe3ed..0ce361d 100644
--- a/Run.hs
+++ b/Run.hs
@@ -23,6 +23,7 @@ module XMonadContrib.Run (
                           safeSpawn,
                           unsafeSpawn,
                           runInTerm,
+                          safeRunInTerm,
                           runInXTerm,
                           seconds
                          ) where
@@ -106,8 +107,12 @@ unsafeSpawn :: String -> X ()
 unsafeSpawn = spawn
 
 -- | Run a given program in a given X terminal emulator. This uses safeSpawn.
-runInTerm :: String -> String -> X ()
-runInTerm term command = safeSpawn term ("-e " ++ command)
+safeRunInTerm :: String -> String -> X ()
+safeRunInTerm term command = safeSpawn term ("-e " ++ command)
+
+unsafeRunInTerm, runInTerm :: String -> String -> X ()
+unsafeRunInTerm term command = unsafeSpawn $ term ++ " -e " ++ command
+runInTerm = unsafeRunInTerm
 
 -- | Runs a given program in XTerm, the X terminal emulator included by default in X.org installations.
 --   Specializes runInTerm to use XTerm instead of an arbitrary other terminal emulator.
-- 
cgit v1.2.3