aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Prompt
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2014-05-05 02:12:42 +0200
committerAdam Vogt <vogt.adam@gmail.com>2014-05-05 02:12:42 +0200
commita6bccefbe7e2a355f7cbab44d39653156a198b5d (patch)
tree4ea9fab76b9f520218908b030d7d094381be5a99 /XMonad/Prompt
parent422bad0c67c53cb44263fb2e17c209c2230d0a6a (diff)
downloadXMonadContrib-a6bccefbe7e2a355f7cbab44d39653156a198b5d.tar.gz
XMonadContrib-a6bccefbe7e2a355f7cbab44d39653156a198b5d.tar.xz
XMonadContrib-a6bccefbe7e2a355f7cbab44d39653156a198b5d.zip
warning police (unused variables)
Ignore-this: a15b4d844b1da4f1f1f9b6095c968705 darcs-hash:20140505001242-1499c-b133a1e0b7b7c21b0cdb0776b50b31eb85924d9f.gz
Diffstat (limited to 'XMonad/Prompt')
-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