diff options
| author | Félix Sipma <felix.sipma@no-log.org> | 2015-12-14 19:13:20 +0100 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-12-14 14:53:52 -0400 |
| commit | 402b6b4a0b78142cb3cdc566b91b3a6fd1fe091b (patch) | |
| tree | 6bf6eec8de66ccf286e97c7e3cd23ec4f2faadda /src | |
| parent | 9a7a6c1557f3d9839db42c82b82ed8aad1653bde (diff) | |
User: systemAccountFor and systemAccountFor'
(cherry picked from commit f56f9696a998d32d6d5c4eca29b28ee60def2db0)
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/User.hs | 8 |
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) |