preferred style
This commit is contained in:
parent
f4e06ae778
commit
69eace8e9a
|
@ -68,4 +68,4 @@ hasGroup user group' = check test $ cmdProperty "adduser"
|
||||||
]
|
]
|
||||||
`describe` unwords ["user", user, "in group", group']
|
`describe` unwords ["user", user, "in group", group']
|
||||||
where
|
where
|
||||||
test = not <$> elem group' <$> words <$> readProcess "groups" [user]
|
test = not . elem group' . words <$> readProcess "groups" [user]
|
||||||
|
|
Loading…
Reference in New Issue