mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

check hook executability

Browse source
This commit is contained in:
Joey Hess 2012-03-14 12:17:38 -04:00
parent caf97fcffd
commit 95a1f6b2ac
2 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Utility/FileMode.hs
View file

@ -34,3 +34,10 @@ allowWrite f = do
{- Checks if a file mode indicates it's a symlink. -}
isSymLink :: FileMode -> Bool
isSymLink mode = symbolicLinkMode `intersectFileModes` mode == symbolicLinkMode
{- Checks if a file has any executable bits set. -}
isExecutable :: FileMode -> Bool
isExecutable mode = ebits `intersectFileModes` mode /= 0
where
ebits = ownerExecuteMode `unionFileModes`
groupExecuteMode `unionFileModes` otherExecuteMode