diff options
author | Joey Hess <joey@kitenet.net> | 2012-10-03 17:04:52 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-10-03 17:04:52 -0400 |
commit | a08863d8b8613b067766d0dca33c1f0c651d498d (patch) | |
tree | e7c9a5a6007428a5ecf1393a5df71f2a574c2c76 /Limit.hs | |
parent | 3bb9a92952f0da499315c897e3489fc02188618c (diff) |
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.
Diffstat (limited to 'Limit.hs')
-rw-r--r-- | Limit.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -19,6 +19,7 @@ import qualified Remote import qualified Backend import Annex.Content import Logs.Trust +import Types.TrustLevel import Logs.Group import Utility.HumanTime @@ -91,7 +92,7 @@ addCopies :: String -> Annex () addCopies want = addLimit . check $ readnum num where (num, good) = case split ":" want of - [v, n] -> case readTrust v of + [v, n] -> case readTrustLevel v of Just trust -> (n, checktrust trust) Nothing -> (n, checkgroup v) [n] -> (n, const $ return True) |