diff options
| author | sean.escriva <sean.escriva@gmail.com> | 2009-09-28 22:44:43 +0200 |
|---|---|---|
| committer | sean.escriva <sean.escriva@gmail.com> | 2009-09-28 22:44:43 +0200 |
| commit | c11a6e9d11b994cc23aa096ff85c31c7a881283b (patch) | |
| tree | 4de75600dd9412ed6a5f9ece873cbc0e7dcdf478 /XMonad/Prompt/Ssh.hs | |
| parent | a343d09be11a512c48611b2abbb9d270ff71e75e (diff) | |
| download | XMonadContrib-c11a6e9d11b994cc23aa096ff85c31c7a881283b.tar.gz XMonadContrib-c11a6e9d11b994cc23aa096ff85c31c7a881283b.tar.xz XMonadContrib-c11a6e9d11b994cc23aa096ff85c31c7a881283b.zip | |
minor hlint cleanup of Prompt and XMonad.Prompt.* sub-modules
Ignore-this: 25e71f59bdcc5bf94c2d6f476833216b
darcs-hash:20090928204443-29414-d1844586f2955c8b76d971b20d6e2b6c1ea91d4d.gz
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 |