From e9d6c2ce7d15f6e90d4e455db8c9600c62f6a158 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 30 Mar 2016 10:49:01 -0400 Subject: fix warning --- src/Propellor/Ssh.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/Propellor/Ssh.hs b/src/Propellor/Ssh.hs index 3e4806ea..a7a9452e 100644 --- a/src/Propellor/Ssh.hs +++ b/src/Propellor/Ssh.hs @@ -66,11 +66,11 @@ socketFile home hn = selectSocketFile md5 = take 9 $ MD5.md5s $ MD5.Str hn selectSocketFile :: [FilePath] -> FilePath -> FilePath -selectSocketFile [] fallback = fallback +selectSocketFile [] d = d selectSocketFile [f] _ = f -selectSocketFile (f:fs) fallback +selectSocketFile (f:fs) d | valid_unix_socket_path f = f - | otherwise = selectSocketFile fs fallback + | otherwise = selectSocketFile fs d valid_unix_socket_path :: FilePath -> Bool valid_unix_socket_path f = length (decodeW8 f) < 100 - reservedbyssh -- cgit v1.2.3