aboutsummaryrefslogtreecommitdiff
path: root/Utility/Kqueue.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-12-14 16:28:27 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-12-14 16:28:27 -0400
commit91f588ab62abedafa53b0b4432f811d0974cf979 (patch)
tree45472bdc0dd3c12f1bc86384238fcb437f26e7e5 /Utility/Kqueue.hs
parent3780a5eb0a01e3d31fc0de2410f7b01518710a0e (diff)
kqueue: Fix bug that made broken symlinks not be noticed.
Diffstat (limited to 'Utility/Kqueue.hs')
-rw-r--r--Utility/Kqueue.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Kqueue.hs b/Utility/Kqueue.hs
index f9f965f6f..f0559e531 100644
--- a/Utility/Kqueue.hs
+++ b/Utility/Kqueue.hs
@@ -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. -}