diff options
Diffstat (limited to 'XMonad/Prompt/Ssh.hs')
| -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 |