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

cleanup

Browse source
This commit is contained in:
Joey Hess 2011-10-31 16:46:51 -04:00
parent 00988bcf36
commit 3d2a9f8405
11 changed files with 48 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Init.hs
View file

@ -65,9 +65,7 @@ gitPreCommitHookUnWrite = unlessBare $ do
" Edit it to remove call to git annex."
unlessBare :: Annex () -> Annex ()
unlessBare a = do
g <- gitRepo
unless (Git.repoIsLocalBare g) a
unlessBare = unlessM $ Git.repoIsLocalBare <$> gitRepo
preCommitHook :: Annex FilePath
preCommitHook = do