preferred style

2014-11-23 14:37:37 -04:00 · 2014-11-23 14:37:37 -04:00 · 69eace8e9a
parent f4e06ae778
commit 69eace8e9a
1 changed files with 1 additions and 1 deletions
--- 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]