diff options
Diffstat (limited to 'Git/FileMode.hs')
| -rw-r--r-- | Git/FileMode.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Git/FileMode.hs b/Git/FileMode.hs index d42df9833..fc4d0264e 100644 --- a/Git/FileMode.hs +++ b/Git/FileMode.hs @@ -13,8 +13,11 @@ import Utility.FileMode import System.PosixCompat.Types +symLinkMode :: FileMode +symLinkMode = 40960 + {- Git uses a special file mode to indicate a symlink. This is the case - even on Windows, so we hard code the valuse here, rather than using - System.Posix.Files.symbolicLinkMode. -} isSymLink :: FileMode -> Bool -isSymLink = checkMode 40960 +isSymLink = checkMode symLinkMode |