summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/User.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Property/User.hs')
-rw-r--r--src/Propellor/Property/User.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Propellor/Property/User.hs b/src/Propellor/Property/User.hs
index aef9ee57..c9c91a77 100644
--- a/src/Propellor/Property/User.hs
+++ b/src/Propellor/Property/User.hs
@@ -18,11 +18,11 @@ accountFor user@(User u) = check nohomedir go
, u
]
-simpleSystemAccount :: User -> Property NoInfo
-simpleSystemAccount u = systemAccountFor u Nothing (Just (Group "nogroup"))
+systemAccountFor :: User -> Property NoInfo
+systemAccountFor user@(User u) = systemAccountFor' user Nothing (Just (Group u))
-systemAccountFor :: User -> Maybe FilePath -> Maybe Group -> Property NoInfo
-systemAccountFor (User u) mhome mgroup = check nouser go
+systemAccountFor' :: User -> Maybe FilePath -> Maybe Group -> Property NoInfo
+systemAccountFor' (User u) mhome mgroup = check nouser go
`describe` ("system account for " ++ u)
where
nouser = isNothing <$> catchMaybeIO (getUserEntryForName u)