kqueue: Fix bug that made broken symlinks not be noticed.

This commit is contained in:
Joey Hess 2012-12-14 16:28:27 -04:00
parent 82617b92e9
commit 3b54c1d3e4
3 changed files with 10 additions and 2 deletions

View file

@ -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. -}