diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-23 14:37:37 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-23 14:37:37 -0400 |
| commit | 69eace8e9a9d4fb2c6193e9e44ea836bd0bf8ba4 (patch) | |
| tree | b97a2f22528e3950b2569e0c0e14d9f8720dc702 /src | |
| parent | f4e06ae77818f32c16c5051b4fe40a7bc993b624 (diff) | |
preferred style
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/User.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/User.hs b/src/Propellor/Property/User.hs index b7bd5e93..6a51703a 100644 --- a/src/Propellor/Property/User.hs +++ b/src/Propellor/Property/User.hs @@ -68,4 +68,4 @@ hasGroup user group' = check test $ cmdProperty "adduser" ] `describe` unwords ["user", user, "in group", group'] where - test = not <$> elem group' <$> words <$> readProcess "groups" [user] + test = not . elem group' . words <$> readProcess "groups" [user] |