diff options
Diffstat (limited to 'Annex/Ssh.hs')
-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 |