diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-03-06 13:56:20 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-03-06 13:56:20 -0400 |
| commit | d08ee1a9d20adbc6ead0bba50aadf4c99a6bce46 (patch) | |
| tree | 587d38d589f0f53939925b4a760ccb303f88e1ba | |
| parent | cd6fd4a1d1e6c4ed541d5b0a9c04461116126472 (diff) | |
syscall optimisation
| -rw-r--r-- | Annex/Ssh.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Ssh.hs b/Annex/Ssh.hs index 47f0ee4f6..39983ab25 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 |