info: Display repository mode: bare when in a bare (non-direct mode) repo.

2015-04-09 12:28:26 -04:00 · 2015-04-09 12:28:26 -04:00 · 84dc5629c6
commit 84dc5629c6
parent 0868472abb
2 changed files with 8 additions and 1 deletions
--- 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