diff options
| -rw-r--r-- | src/Propellor/Ssh.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |