diff options
author | Joey Hess <joey@kitenet.net> | 2013-05-25 12:44:58 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-05-25 12:44:58 -0400 |
commit | b93439ab21727ad809ebce384b78e572799fa39a (patch) | |
tree | a36efdd4adc246cb40a62451d84d4ce66bf38c15 /Command/Vicfg.hs | |
parent | 6442bc73b2799c46c8a45a3cd265dd8dfeaea1f3 (diff) |
content: New command line way to view and configure a repository's preferred content settings.
Diffstat (limited to 'Command/Vicfg.hs')
-rw-r--r-- | Command/Vicfg.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/Vicfg.hs b/Command/Vicfg.hs index b176e5597..1aa8722c5 100644 --- a/Command/Vicfg.hs +++ b/Command/Vicfg.hs @@ -117,8 +117,8 @@ genCfg cfg descs = unlines $ concat [intro, trust, groups, preferredcontent] [ "" , com "Repository preferred contents" ] - (\(s, u) -> line "preferred-content" u s) - (\u -> line "preferred-content" u "") + (\(s, u) -> line "content" u s) + (\u -> line "content" u "") settings field desc showvals showdefaults = concat [ desc @@ -167,7 +167,7 @@ parseCfg curcfg = go [] curcfg . lines | setting == "group" = let m = M.insert u (S.fromList $ words value) (cfgGroupMap cfg) in Right $ cfg { cfgGroupMap = m } - | setting == "preferred-content" = + | setting == "content" = case checkPreferredContentExpression value of Just e -> Left e Nothing -> |