From bc0a97a08790c59062b1d238a6cf1d53afa44034 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 24 Oct 2007 13:02:19 +0200
Subject: Use new terminal config option

darcs-hash:20071024110219-a5988-a8ca4fc9a920d04c71af52adbbe1f85d014f238e.gz
---
 SshPrompt.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'SshPrompt.hs')

diff --git a/SshPrompt.hs b/SshPrompt.hs
index 2db9f74..023bf96 100644
--- a/SshPrompt.hs
+++ b/SshPrompt.hs
@@ -26,7 +26,7 @@ import Data.Maybe (Maybe(..), catMaybes)
 import Data.Set (toList, fromList)
 import System.Directory (doesFileExist)
 import XMonad (X, io)
-import XMonadContrib.Run (runInXTerm)
+import XMonadContrib.Run (runInTerm)
 import XMonadContrib.XPrompt (XPrompt(..), XPConfig, mkXPrompt,
 			     mkComplFunFromList)
 -- $usage
@@ -55,7 +55,7 @@ sshPrompt c = do
   mkXPrompt Ssh c (mkComplFunFromList sc) ssh
 
 ssh :: String -> X ()
-ssh s = runInXTerm ("ssh " ++ s)
+ssh s = runInTerm ("ssh " ++ s)
 
 sshComplList :: IO [String]
 sshComplList =  (sort . toList . fromList) `fmap` liftM2 (++) sshComplListLocal sshComplListGlobal
-- 
cgit v1.2.3