summaryrefslogtreecommitdiff
path: root/Propellor/Property/User.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-30 23:55:59 -0400
committerJoey Hess2014-03-30 23:55:59 -0400
commit8621fa6e9983a39c07a9677eac324ebcee79b549 (patch)
treeaf60e05e58dc49d2f73d326f8ed1fb51d74f3704 /Propellor/Property/User.hs
parent8f2ac23b41c6bbc24c658831a6a988c0d23a9f7d (diff)
more prep for hackage
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")