summaryrefslogtreecommitdiff
path: root/Limit.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-03 17:04:52 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-03 17:04:52 -0400
commita08863d8b8613b067766d0dca33c1f0c651d498d (patch)
treee7c9a5a6007428a5ecf1393a5df71f2a574c2c76 /Limit.hs
parent3bb9a92952f0da499315c897e3489fc02188618c (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.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Limit.hs b/Limit.hs
index 6f83c0e38..dd512689f 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -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)