mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

full analysis of ways content could stop being preferred and need to be dropped

Browse source
This commit is contained in:
Joey Hess 2012-10-13 13:21:43 -04:00
parent e52fc5ba89
commit 9c3e1ca3c9
2 changed files with 38 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Vicfg.hs
View file

@ -125,7 +125,7 @@ genCfg cfg descs = unlines $ concat [intro, trust, groups, preferredcontent]
]
line setting u value =
[ com $ "(" ++ (fromMaybe "" $ M.lookup u descs) ++ ")"
[ com $ "(for " ++ (fromMaybe "" $ M.lookup u descs) ++ ")"
, unwords [setting, fromUUID u, "=", value]
]
lcom = map (\l -> if "#" `isPrefixOf` l then l else "#" ++ l)