cleanup

1 files changed, 1 insertions, 3 deletions

diff --git a/Init.hs b/Init.hs
index 6e024e9fc..1fac80820 100644
--- a/Init.hs
+++ b/Init.hs
@@ -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