hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

LIB: fix isBrokenSymlink

Browse Source
This commit is contained in:
Julian Ospald 2015-12-26 21:59:17 +01:00
parent fa3e5b3ff9
commit 83816ef1a6
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Data/DirTree.hs
View File

@ -709,6 +709,7 @@ followSymlink af = af
-- --
-- When called on a non-symlink, returns False. -- When called on a non-symlink, returns False.
isBrokenSymlink :: File FileInfo -> Bool isBrokenSymlink :: File FileInfo -> Bool
isBrokenSymlink af@(SymLink _ _ (_ :/ Failed {})) = True
isBrokenSymlink af@(SymLink {}) isBrokenSymlink af@(SymLink {})
= case followSymlink af of = case followSymlink af of
(Failed {}) -> True (Failed {}) -> True