aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Prompt/Ssh.hs6
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