LIB: fix isBrokenSymlink

2015-12-26 21:59:17 +01:00
parent fa3e5b3ff9
commit 83816ef1a6
1 changed files with 1 additions and 0 deletions
--- a/src/Data/DirTree.hs
+++ b/src/Data/DirTree.hs
@@ -709,6 +709,7 @@ followSymlink af                                  = af
 --
 -- When called on a non-symlink, returns False.
 isBrokenSymlink :: File FileInfo -> Bool
+isBrokenSymlink af@(SymLink _ _ (_ :/ Failed {})) = True
 isBrokenSymlink af@(SymLink {})
  = case followSymlink af of
      (Failed {}) -> True