cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'joeyconfig'

This commit is contained in:
Joey Hess 2014-11-25 15:40:00 -04:00
parent cd51024070 7d0f79a0c7
commit 1d8e08f2ac
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Propellor/Property/Group.hs
View File

@ -9,6 +9,6 @@ exists group' mgid = check test (cmdProperty "addgroup" $ args mgid)
`describe` unwords ["group", group'] `describe` unwords ["group", group']
where where
groupFile = "/etc/group" groupFile = "/etc/group"
test = not <$> elem group' <$> words <$> readProcess "cut" ["-d:", "-f1", groupFile] test = not . elem group' . words <$> readProcess "cut" ["-d:", "-f1", groupFile]
args Nothing = [group'] args Nothing = [group']
args (Just gid) = ["--gid", show gid, group'] args (Just gid) = ["--gid", show gid, group']