diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-03-30 10:49:01 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-03-30 10:49:01 -0400 |
| commit | e9d6c2ce7d15f6e90d4e455db8c9600c62f6a158 (patch) | |
| tree | 8003c1f48f09d8c31f554d88ad00478ff83b6c1d /src/Propellor | |
| parent | adc7dad3d8b86b1ad770d1c82a66cd4df7bbee20 (diff) | |
fix warning
Diffstat (limited to 'src/Propellor')
| -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 |