summaryrefslogtreecommitdiff
path: root/Command/Info.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-04-10 12:45:42 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-04-10 12:45:42 -0400
commit945f545d568a4ce5a53736dc3253754af1fafce7 (patch)
tree50d971bc69b8059497225341a4bf9f760a4a3a82 /Command/Info.hs
parentb2cb9c7f0f5b713fe9abdfe29eabf6bb82e7b2b1 (diff)
parentefd2eaa1cfbefd25778519361121a386a9f40af7 (diff)
Merge branch 'master' into concurrentprogress
Diffstat (limited to 'Command/Info.hs')
-rw-r--r--Command/Info.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/Command/Info.hs b/Command/Info.hs
index e489db0ea..db5953050 100644
--- a/Command/Info.hs
+++ b/Command/Info.hs
@@ -238,7 +238,12 @@ showStat s = maybe noop calc =<< s
repository_mode :: Stat
repository_mode = simpleStat "repository mode" $ lift $
ifM isDirect
- ( return "direct", return "indirect" )
+ ( return "direct"
+ , ifM (fromRepo Git.repoIsLocalBare)
+ ( return "bare"
+ , return "indirect"
+ )
+ )
remote_list :: TrustLevel -> Stat
remote_list level = stat n $ nojson $ lift $ do