diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-24 17:25:47 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-24 17:25:47 -0400 |
| commit | e06bf0da75294b33188cde319c29d93266fd4bb3 (patch) | |
| tree | d8c409e1b9ad3d060e1bb5b80ed2e101e1d43c21 /Command/ConfigList.hs | |
| parent | a7f9ddb8de7c1e0357046d3dc9efc644bd5fb730 (diff) | |
git-annex-shell: Added support for operating inside gcrypt repositories.
* Note that the layout of gcrypt repositories has changed, and
if you created one you must manually upgrade it.
See http://git-annex.branchable.com/upgrades/gcrypt/
Diffstat (limited to 'Command/ConfigList.hs')
| -rw-r--r-- | Command/ConfigList.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Command/ConfigList.hs b/Command/ConfigList.hs index 703d6882d..c42480200 100644 --- a/Command/ConfigList.hs +++ b/Command/ConfigList.hs @@ -10,6 +10,8 @@ module Command.ConfigList where import Common.Annex import Command import Annex.UUID +import qualified Git.Config +import Remote.GCrypt (coreGCryptId) def :: [Command] def = [noCommit $ command "configlist" paramNothing seek @@ -21,5 +23,8 @@ seek = [withNothing start] start :: CommandStart start = do u <- getUUID - liftIO $ putStrLn $ "annex.uuid=" ++ fromUUID u + showConfig "annex.uuid" $ fromUUID u + showConfig coreGCryptId =<< fromRepo (Git.Config.get coreGCryptId "") stop + where + showConfig k v = liftIO $ putStrLn $ k ++ "=" ++ v |