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

don't warn about existence of pre-commit hook if it already has the right content

Browse source
This commit is contained in:
Joey Hess 2013-05-17 15:59:03 -04:00
parent ba0c165704
commit 90d44f09eb
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Init.hs
View file

@ -86,7 +86,10 @@ gitPreCommitHookWrite :: Annex ()
gitPreCommitHookWrite = unlessBare $ do gitPreCommitHookWrite = unlessBare $ do
hook <- preCommitHook hook <- preCommitHook
ifM (liftIO $ doesFileExist hook) ifM (liftIO $ doesFileExist hook)
( warning $ "pre-commit hook (" ++ hook ++ ") already exists, not configuring" ( do
content <- readFile hook
when (content /= preCommitScript) $
warning $ "pre-commit hook (" ++ hook ++ ") already exists, not configuring"
, unlessM crippledFileSystem $ , unlessM crippledFileSystem $
liftIO $ do liftIO $ do
viaTmp writeFile hook preCommitScript viaTmp writeFile hook preCommitScript