From d08ee1a9d20adbc6ead0bba50aadf4c99a6bce46 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 6 Mar 2012 13:56:20 -0400 Subject: [PATCH] syscall optimisation --- Annex/Ssh.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Annex/Ssh.hs b/Annex/Ssh.hs index 47f0ee4f60..39983ab250 100644 --- a/Annex/Ssh.hs +++ b/Annex/Ssh.hs @@ -61,8 +61,8 @@ portParams (Just port) = [Param "-p", Param $ show port] sshCleanup :: Annex () sshCleanup = do dir <- fromRepo gitAnnexSshDir - liftIO $ createDirectoryIfMissing True dir - sockets <- filter (not . isLock) <$> liftIO (dirContents dir) + sockets <- filter (not . isLock) <$> + liftIO (catchDefaultIO (dirContents dir) []) forM_ sockets cleanup where cleanup socketfile = do