From e80353490db56e21d266a384141d39f50797e8e3 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 11 Apr 2015 00:10:34 -0400 Subject: a few hlints --- Creds.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Creds.hs') diff --git a/Creds.hs b/Creds.hs index 765be5a17..a4074c5c1 100644 --- a/Creds.hs +++ b/Creds.hs @@ -179,13 +179,13 @@ includeCredsInfo c storage info = do Just _ -> do let (uenv, penv) = credPairEnvironment storage ret $ "from environment variables (" ++ unwords [uenv, penv] ++ ")" - Nothing -> case (\ck -> M.lookup ck c) =<< credPairRemoteKey storage of + Nothing -> case (`M.lookup` c) =<< credPairRemoteKey storage of Nothing -> ifM (existsCacheCredPair storage) ( ret "stored locally" , ret "not available" ) Just _ -> case extractCipher c of - Just (EncryptedCipher _ _ _) -> ret "embedded in git repository (gpg encrypted)" + Just (EncryptedCipher {}) -> ret "embedded in git repository (gpg encrypted)" _ -> ret "embedded in git repository (not encrypted)" where ret s = return $ ("creds", s) : info -- cgit v1.2.3