Remove RunInXTerm in favor of Run

MetaModule.hs

@@ -60,6 +60,7 @@ import XMonadContrib.ResizableTile ()
 import XMonadContrib.Roledex ()
 import XMonadContrib.RotSlaves ()
 import XMonadContrib.RotView ()
+import XMonadContrib.Run ()
 import XMonadContrib.SetWMName ()
 import XMonadContrib.ShellPrompt ()
 import XMonadContrib.SimpleDate ()

RunInXTerm.hs

@@ -1,31 +0,0 @@
------------------------------------------------------------------------------
--- |
--- Module      :  XMonadContrib.RunInXTerm
--- Copyright   :  (C) 2007 Andrea Rossato
--- License     :  BSD3
--- 
--- Maintainer  :  andrea.rossato@unibz.it
--- Stability   :  unstable
--- Portability :  unportable
---
--- A simple module to launch commands in an X terminal 
--- from XMonad
---
------------------------------------------------------------------------------
-
-module XMonadContrib.RunInXTerm (
-                             -- * Usage
-                             -- $usage
-                             runInXTerm
-                              ) where
-
-import XMonad
-import System.Environment
-
--- $usage
--- For an example usage see "XMonadContrib.SshPrompt"
-
-runInXTerm :: String -> X ()
-runInXTerm com = do
-  c <- io $ catch (getEnv "XTERMCMD") (const $ return "xterm")
-  spawn ("exec " ++ c ++ " -e " ++ com)

SshPrompt.hs

@@ -20,7 +20,7 @@ module XMonadContrib.SshPrompt (
 
 import XMonad
 import XMonadContrib.XPrompt
-import XMonadContrib.RunInXTerm
+import XMonadContrib.Run
 
 import Control.Monad
 import System.Directory