diff options
author | Joey Hess <joey@kitenet.net> | 2013-11-19 16:09:44 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-11-19 16:09:44 -0400 |
commit | e011fd72ef69dbbaa4f63bfd61564e0918cb3e22 (patch) | |
tree | a371af17996f35ffa2d4bfa66c09a06124c40539 /Utility/FileMode.hs | |
parent | d39035d46df979abcf34d1411f96b5a70bd2d93c (diff) | |
download | git-repair-e011fd72ef69dbbaa4f63bfd61564e0918cb3e22.tar.gz |
initial work on git repository destroyer
I suspect this might sometimes corrupt the **source** repo, so use with
caution!
Diffstat (limited to 'Utility/FileMode.hs')
-rw-r--r-- | Utility/FileMode.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Utility/FileMode.hs b/Utility/FileMode.hs index d76fb57..1307d38 100644 --- a/Utility/FileMode.hs +++ b/Utility/FileMode.hs @@ -65,12 +65,15 @@ allowWrite :: FilePath -> IO () allowWrite f = modifyFileMode f $ addModes [ownerWriteMode] {- Allows owner and group to read and write to a file. -} -groupWriteRead :: FilePath -> IO () -groupWriteRead f = modifyFileMode f $ addModes +groupSharedModes :: [FileMode] +groupSharedModes = [ ownerWriteMode, groupWriteMode , ownerReadMode, groupReadMode ] +groupWriteRead :: FilePath -> IO () +groupWriteRead f = modifyFileMode f $ addModes groupSharedModes + checkMode :: FileMode -> FileMode -> Bool checkMode checkfor mode = checkfor `intersectFileModes` mode == checkfor |