full analysis of ways content could stop being preferred and need to be dropped
This commit is contained in:
parent
e52fc5ba89
commit
9c3e1ca3c9
2 changed files with 38 additions and 14 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue