summaryrefslogtreecommitdiff
path: root/Command/ConfigList.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-01-04 17:34:14 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-01-04 17:34:14 -0400
commita857e1f4ee247cae0cf0ce6696a9015460d117de (patch)
tree927aaa1c0048fe50c04c5490e2bf48b8a6e0b0f6 /Command/ConfigList.hs
parentb001e6573c09235f9d22cb4daf034369f6bff11b (diff)
git-annex-shell: Avoid exposing any git repo config except for the annex.uuid when doing configlist.
Diffstat (limited to 'Command/ConfigList.hs')
-rw-r--r--Command/ConfigList.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/ConfigList.hs b/Command/ConfigList.hs
index 0d9d789b5..b91c2a916 100644
--- a/Command/ConfigList.hs
+++ b/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