diff options
Diffstat (limited to 'XMonad/Prompt')
-rw-r--r-- | XMonad/Prompt/Man.hs | 2 | ||||
-rw-r--r-- | XMonad/Prompt/Ssh.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Prompt/Man.hs b/XMonad/Prompt/Man.hs index 71c7dbd..20e282d 100644 --- a/XMonad/Prompt/Man.hs +++ b/XMonad/Prompt/Man.hs @@ -58,7 +58,7 @@ instance XPrompt Man where manPrompt :: XPConfig -> X () manPrompt c = do mans <- io getMans - mkXPrompt Man c (manCompl mans) $ runInTerm . (++) "man " + mkXPrompt Man c (manCompl mans) $ runInTerm "" . (++) "man " getMans :: IO [String] getMans = do diff --git a/XMonad/Prompt/Ssh.hs b/XMonad/Prompt/Ssh.hs index 47ba168..379de4c 100644 --- a/XMonad/Prompt/Ssh.hs +++ b/XMonad/Prompt/Ssh.hs @@ -56,7 +56,7 @@ sshPrompt c = do mkXPrompt Ssh c (mkComplFunFromList sc) ssh ssh :: String -> X () -ssh s = runInTerm ("ssh " ++ s) +ssh s = runInTerm "" ("ssh " ++ s) sshComplList :: IO [String] sshComplList = uniqSort `fmap` liftM2 (++) sshComplListLocal sshComplListGlobal |