replace R.doesPathExist with doesPathExist
Equivilant, just avoids some ugliness.
This commit is contained in:
parent
5dbaaae299
commit
3bbabd6778
4 changed files with 8 additions and 9 deletions
|
@ -292,7 +292,7 @@ enumSocketFiles :: Annex [OsPath]
|
|||
enumSocketFiles = liftIO . go =<< sshCacheDir
|
||||
where
|
||||
go Nothing = return []
|
||||
go (Just dir) = filterM (R.doesPathExist . fromOsPath . socket2lock)
|
||||
go (Just dir) = filterM (doesPathExist . socket2lock)
|
||||
=<< filter (not . isLock)
|
||||
<$> catchDefaultIO [] (dirContents dir)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue