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

avoid writing pre-commit hook if we cannot make it executable

Browse source
This commit is contained in:
Joey Hess 2013-02-18 15:52:50 -04:00
parent bff6c9f53f
commit 2b86dc0271
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Init.hs
View file

@ -76,10 +76,11 @@ gitPreCommitHookWrite = unlessBare $ do
hook <- preCommitHook hook <- preCommitHook
ifM (liftIO $ doesFileExist hook) ifM (liftIO $ doesFileExist hook)
( warning $ "pre-commit hook (" ++ hook ++ ") already exists, not configuring" ( warning $ "pre-commit hook (" ++ hook ++ ") already exists, not configuring"
, liftIO $ do , unlessM crippledFileSystem $
viaTmp writeFile hook preCommitScript liftIO $ do
p <- getPermissions hook viaTmp writeFile hook preCommitScript
setPermissions hook $ p {executable = True} p <- getPermissions hook
setPermissions hook $ p {executable = True}
) )
gitPreCommitHookUnWrite :: Annex () gitPreCommitHookUnWrite :: Annex ()