summaryrefslogtreecommitdiff
path: root/src/Propellor/Property
diff options
context:
space:
mode:
authorJoey Hess2014-11-23 14:37:37 -0400
committerJoey Hess2014-11-23 14:37:37 -0400
commit69eace8e9a9d4fb2c6193e9e44ea836bd0bf8ba4 (patch)
treeb97a2f22528e3950b2569e0c0e14d9f8720dc702 /src/Propellor/Property
parentf4e06ae77818f32c16c5051b4fe40a7bc993b624 (diff)
preferred style
Diffstat (limited to 'src/Propellor/Property')
-rw-r--r--src/Propellor/Property/User.hs2
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]