From 8621fa6e9983a39c07a9677eac324ebcee79b549 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 23:55:59 -0400 Subject: more prep for hackage --- Propellor/Property/User.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'Propellor/Property/User.hs') 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") -- cgit v1.3-2-g0d8e