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

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

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)