From 3d2a9f84051e9dc705ba4bb4828af691e479ae0e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Oct 2011 16:46:51 -0400 Subject: cleanup --- Init.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Init.hs') 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 -- cgit v1.2.3