diff options
Diffstat (limited to 'XMonad/Prompt/Ssh.hs')
| -rw-r--r-- | XMonad/Prompt/Ssh.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Prompt/Ssh.hs b/XMonad/Prompt/Ssh.hs index 00217be..e8b15a8 100644 --- a/XMonad/Prompt/Ssh.hs +++ b/XMonad/Prompt/Ssh.hs @@ -54,11 +54,11 @@ instance XPrompt Ssh where sshPrompt :: XPConfig -> X () sshPrompt c = do - sc <- io $ sshComplList + sc <- io sshComplList mkXPrompt Ssh c (mkComplFunFromList sc) ssh ssh :: String -> X () -ssh s = runInTerm "" ("ssh " ++ s) +ssh = runInTerm "" . ("ssh " ++ ) sshComplList :: IO [String] sshComplList = uniqSort `fmap` liftM2 (++) sshComplListLocal sshComplListGlobal |