summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/User.hs
diff options
context:
space:
mode:
authorFĂ©lix Sipma2015-12-14 19:13:20 +0100
committerJoey Hess2015-12-14 14:53:52 -0400
commit402b6b4a0b78142cb3cdc566b91b3a6fd1fe091b (patch)
tree6bf6eec8de66ccf286e97c7e3cd23ec4f2faadda /src/Propellor/Property/User.hs
parent9a7a6c1557f3d9839db42c82b82ed8aad1653bde (diff)
User: systemAccountFor and systemAccountFor'
(cherry picked from commit f56f9696a998d32d6d5c4eca29b28ee60def2db0)
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)