diff options
| -rw-r--r-- | SshPrompt.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |