kqueue: Fix bug that made broken symlinks not be noticed.
This commit is contained in:
parent
82617b92e9
commit
3b54c1d3e4
3 changed files with 10 additions and 2 deletions
|
@ -80,7 +80,7 @@ getDirInfo dir = do
|
|||
return $ DirInfo dir contents
|
||||
where
|
||||
getDirEnt f = catchMaybeIO $ do
|
||||
s <- getFileStatus (dir </> f)
|
||||
s <- getSymbolicLinkStatus (dir </> f)
|
||||
return $ DirEnt f (fileID s) (isDirectory s)
|
||||
|
||||
{- Difference between the dirCaches of two DirInfos. -}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue