vicfg: New command, allows editing (or simply viewing) most of the repository configuration settings stored in the git-annex branch.

Incomplete; I need to finish parsing and saving. This will also be used
for editing transfer control expresssions.

Removed the group display from the status output, I didn't really
like that format, and vicfg can be used to see as well as edit rempository
group membership.

1 files changed, 1 insertions, 1 deletions

diff --git a/Remote.hs b/Remote.hs
index a5686dd44..b067fa749 100644
--- a/Remote.hs
+++ b/Remote.hs
@@ -42,6 +42,7 @@ module Remote (
 import qualified Data.Map as M
 import Text.JSON
 import Text.JSON.Generic
+import Data.Tuple
 
 import Common.Annex
 import Types.Remote
@@ -100,7 +101,6 @@ nameToUUID n = byName' n >>= go
 				Nothing -> return $ byuuid m
 		byuuid m = M.lookup (toUUID n) $ transform double m
 		transform a = M.fromList . map a . M.toList
-		swap (a, b) = (b, a)
 		double (a, _) = (a, a)
 
 {- Pretty-prints a list of UUIDs of remotes, for human display.