diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2014-05-05 02:12:42 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2014-05-05 02:12:42 +0200 |
| commit | a6bccefbe7e2a355f7cbab44d39653156a198b5d (patch) | |
| tree | 4ea9fab76b9f520218908b030d7d094381be5a99 | |
| parent | 422bad0c67c53cb44263fb2e17c209c2230d0a6a (diff) | |
| download | XMonadContrib-a6bccefbe7e2a355f7cbab44d39653156a198b5d.tar.gz XMonadContrib-a6bccefbe7e2a355f7cbab44d39653156a198b5d.tar.xz XMonadContrib-a6bccefbe7e2a355f7cbab44d39653156a198b5d.zip | |
warning police (unused variables)
Ignore-this: a15b4d844b1da4f1f1f9b6095c968705
darcs-hash:20140505001242-1499c-b133a1e0b7b7c21b0cdb0776b50b31eb85924d9f.gz
| -rw-r--r-- | XMonad/Prompt/Ssh.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Prompt/Ssh.hs b/XMonad/Prompt/Ssh.hs index 5bd731c..4b38245 100644 --- a/XMonad/Prompt/Ssh.hs +++ b/XMonad/Prompt/Ssh.hs @@ -54,11 +54,11 @@ data Ssh = Ssh instance XPrompt Ssh where showXPrompt Ssh = "SSH to: " - commandToComplete _ c = maybe c (\(u,h) -> h) (parseHost c) - nextCompletion t c l = maybe next (\(u,h) -> u ++ "@" ++ next) hostPared + commandToComplete _ c = maybe c (\(_u,h) -> h) (parseHost c) + nextCompletion _t c l = maybe next (\(u,_h) -> u ++ "@" ++ next) hostPared where hostPared = parseHost c - next = getNextCompletion (maybe c (\(u,h) -> h) hostPared) l + next = getNextCompletion (maybe c (\(_u,h) -> h) hostPared) l sshPrompt :: XPConfig -> X () sshPrompt c = do |