mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source
This commit is contained in:
Joey Hess 2011-01-04 17:34:14 -04:00
parent b001e6573c
commit a857e1f4ee
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Command/ConfigList.hs
View file

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

7
debian/changelog vendored
View file

@ -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 git-annex (0.15) unstable; urgency=low
* Support scp-style urls for remotes (host:path). * Support scp-style urls for remotes (host:path).