From a6bccefbe7e2a355f7cbab44d39653156a198b5d Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Mon, 5 May 2014 02:12:42 +0200 Subject: warning police (unused variables) Ignore-this: a15b4d844b1da4f1f1f9b6095c968705 darcs-hash:20140505001242-1499c-b133a1e0b7b7c21b0cdb0776b50b31eb85924d9f.gz --- XMonad/Prompt/Ssh.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad') 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 -- cgit v1.2.3