diff options
author | Joey Hess <joey@kitenet.net> | 2012-12-14 16:28:27 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-12-14 16:28:27 -0400 |
commit | 91f588ab62abedafa53b0b4432f811d0974cf979 (patch) | |
tree | 45472bdc0dd3c12f1bc86384238fcb437f26e7e5 /Utility/Kqueue.hs | |
parent | 3780a5eb0a01e3d31fc0de2410f7b01518710a0e (diff) |
kqueue: Fix bug that made broken symlinks not be noticed.
Diffstat (limited to 'Utility/Kqueue.hs')
-rw-r--r-- | Utility/Kqueue.hs | 2 |
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. -} |