summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/User.hs
diff options
context:
space:
mode:
authorZihao Wang2017-02-03 20:35:27 +0800
committerZihao Wang2017-02-04 09:04:56 +0800
commit49071dc5a85966a9c5d2b8892e689542e86f3e76 (patch)
tree889bdbf1414174de7a23c67b5798e5ad768831b1 /src/Propellor/Property/User.hs
parent7781c8098f45481ac03c5ede989614eb8411a6aa (diff)
CloudAtCost requires User.nuked to be Property Linux
Signed-off-by: Zihao Wang <dev@wzhd.org>
Diffstat (limited to 'src/Propellor/Property/User.hs')
-rw-r--r--src/Propellor/Property/User.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/User.hs b/src/Propellor/Property/User.hs
index 76eae647..0c7e48f2 100644
--- a/src/Propellor/Property/User.hs
+++ b/src/Propellor/Property/User.hs
@@ -43,7 +43,7 @@ systemAccountFor' (User u) mhome mgroup = tightenTargets $ check nouser go
]
-- | Removes user home directory!! Use with caution.
-nuked :: User -> Eep -> Property DebianLike
+nuked :: User -> Eep -> Property Linux
nuked user@(User u) _ = tightenTargets $ check hashomedir go
`describe` ("nuked user " ++ u)
where