summaryrefslogtreecommitdiff
path: root/Property
diff options
context:
space:
mode:
authorJoey Hess2014-03-30 16:53:31 -0400
committerJoey Hess2014-03-30 16:53:31 -0400
commit4e442f4bcf04a68f638393d180ac7664ddd0fe4b (patch)
tree064deea7852a91e39d57cd7a6b31f4bccb5de793 /Property
parent1dcaeb6f776eaf401b1dbe68f836ec3d5953bb0c (diff)
tweaks
Diffstat (limited to 'Property')
-rw-r--r--Property/User.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/Property/User.hs b/Property/User.hs
index 8903a9e7..58bfa37a 100644
--- a/Property/User.hs
+++ b/Property/User.hs
@@ -6,6 +6,8 @@ import Common
type UserName = String
+data Eep = YesReallyDeleteHome
+
sshAccountFor :: UserName -> Property
sshAccountFor user = check (isNothing <$> homedir user) $ cmdProperty "adduser"
[ Param "--disabled-password"
@@ -15,8 +17,8 @@ sshAccountFor user = check (isNothing <$> homedir user) $ cmdProperty "adduser"
`describe` ("ssh account " ++ user)
{- Removes user home directory!! Use with caution. -}
-nuked :: UserName -> Property
-nuked user = check (isJust <$> homedir user) $ cmdProperty "userdel"
+nuked :: UserName -> Eep -> Property
+nuked user _ = check (isJust <$> homedir user) $ cmdProperty "userdel"
[ Param "-r"
, Param user
]