summaryrefslogtreecommitdiff
path: root/Propellor/Property/User.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Propellor/Property/User.hs')
-rw-r--r--Propellor/Property/User.hs16
1 files changed, 8 insertions, 8 deletions
diff --git a/Propellor/Property/User.hs b/Propellor/Property/User.hs
index 2d2118cc..5a23f72d 100644
--- a/Propellor/Property/User.hs
+++ b/Propellor/Property/User.hs
@@ -2,23 +2,23 @@ module Propellor.Property.User where
import System.Posix
-import Propellor.Common
+import Propellor
data Eep = YesReallyDeleteHome
sshAccountFor :: UserName -> Property
sshAccountFor user = check (isNothing <$> homedir user) $ cmdProperty "adduser"
- [ Param "--disabled-password"
- , Param "--gecos", Param ""
- , Param user
+ [ "--disabled-password"
+ , "--gecos", ""
+ , user
]
`describe` ("ssh account " ++ user)
{- | Removes user home directory!! Use with caution. -}
nuked :: UserName -> Eep -> Property
nuked user _ = check (isJust <$> homedir user) $ cmdProperty "userdel"
- [ Param "-r"
- , Param user
+ [ "-r"
+ , user
]
`describe` ("nuked user " ++ user)
@@ -38,8 +38,8 @@ hasPassword user = Property (user ++ " has password") $
lockedPassword :: UserName -> Property
lockedPassword user = check (not <$> isLockedPassword user) $ cmdProperty "passwd"
- [ Param "--lock"
- , Param user
+ [ "--lock"
+ , user
]
`describe` ("locked " ++ user ++ " password")