From 54b236615b914b4fb65de755a09e7bad83696cac Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Tue, 7 Aug 2007 12:19:11 +0200
Subject: SshPrompt now uses RunInXTerm to launch the command

darcs-hash:20070807101911-32816-893c37187d6f1df28d755a90ab8cb5cab9584308.gz
---
 SshPrompt.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'SshPrompt.hs')

diff --git a/SshPrompt.hs b/SshPrompt.hs
index c1d69b0..638aedf 100644
--- a/SshPrompt.hs
+++ b/SshPrompt.hs
@@ -20,6 +20,7 @@ module XMonadContrib.SshPrompt (
 
 import XMonad
 import XMonadContrib.XPrompt
+import XMonadContrib.RunInXTerm
 
 import Control.Monad
 import System.Directory
@@ -47,7 +48,7 @@ sshPrompt c = do
   mkXPrompt Ssh c (mkComplFunFromList sc) ssh
 
 ssh :: String -> X ()
-ssh s = spawn $ "exec xterm -e ssh " ++ s
+ssh s = runInXTerm ("ssh " ++ s)
  
 sshComplList :: IO [String]
 sshComplList = do
-- 
cgit v1.2.3