From ed9cdb350e0bae8523b9d60cd414730c7d515829 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 2 Jun 2016 16:59:15 -0400
Subject: refactor isBareRepo

---
 Config.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index 75d7b4ce7..be60852da 100644
--- a/Config.hs
+++ b/Config.hs
@@ -86,6 +86,9 @@ setRemoteIgnore r b = setConfig (remoteConfig r "ignore") (Git.Config.boolConfig
 setRemoteBare :: Git.Repo -> Bool -> Annex ()
 setRemoteBare r b = setConfig (remoteConfig r "bare") (Git.Config.boolConfig b)
 
+isBareRepo :: Annex Bool
+isBareRepo = fromRepo Git.repoIsLocalBare
+
 isDirect :: Annex Bool
 isDirect = annexDirect <$> Annex.getGitConfig
 
-- 
cgit v1.2.3