git-annex-shell: Avoid exposing any git repo config except for the annex.uuid when doing configlist.

Command/ConfigList.hs

@@ -11,7 +11,7 @@ import Control.Monad.State (liftIO)
 
 import Annex
 import Command
-import qualified GitRepo as Git
+import UUID
 
 command :: [Command]
 command = [Command "configlist" paramNothing seek
@@ -23,5 +23,6 @@ seek = [withNothing start]
 start :: CommandStartNothing
 start = do
 	g <- Annex.gitRepo
-	liftIO $ Git.run g ["config", "--list"]
+	u <- getUUID g
+	liftIO $ putStrLn $ "annex.uuid=" ++ u
 	return Nothing

debian/changelog

@@ -1,3 +1,10 @@
+git-annex (0.16) UNRELEASED; urgency=low
+
+  * git-annex-shell: Avoid exposing any git repo config except for the
+    annex.uuid when doing configlist.
+
+ -- Joey Hess <joeyh@debian.org>  Tue, 04 Jan 2011 17:33:42 -0400
+
 git-annex (0.15) unstable; urgency=low
 
   * Support scp-style urls for remotes (host:path).