summaryrefslogtreecommitdiff
path: root/Git/Config.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Git/Config.hs')
-rw-r--r--Git/Config.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/Git/Config.hs b/Git/Config.hs
index 52a9dafb5..adc75a208 100644
--- a/Git/Config.hs
+++ b/Git/Config.hs
@@ -147,5 +147,9 @@ isTrue s
where
s' = map toLower s
+boolConfig :: Bool -> String
+boolConfig True = "true"
+boolConfig False = "false"
+
isBare :: Repo -> Bool
isBare r = fromMaybe False $ isTrue =<< getMaybe "core.bare" r