summaryrefslogtreecommitdiff
path: root/Propellor.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-30 16:49:59 -0400
committerJoey Hess2014-03-30 16:49:59 -0400
commit1dcaeb6f776eaf401b1dbe68f836ec3d5953bb0c (patch)
tree37f813dc629f53aee392b6d0bae19c218ade3026 /Propellor.hs
parent3af4cc011ec0ae98bf5e9ebc274188d416db5f18 (diff)
cute describe operator
Diffstat (limited to 'Propellor.hs')
-rw-r--r--Propellor.hs17
1 files changed, 9 insertions, 8 deletions
diff --git a/Propellor.hs b/Propellor.hs
index b3c668d9..ad838a1b 100644
--- a/Propellor.hs
+++ b/Propellor.hs
@@ -51,8 +51,8 @@ standardSystem suite = propertyList "standard system"
, User.sshAccountFor "joey"
, Apt.installed ["sudo"]
-- nopasswd because no password is set up for joey.
- , "/etc/sudoers" `File.containsLine` "joey ALL=(ALL:ALL) NOPASSWD:ALL"
- `describe` "sudoer joey"
+ , "sudoer joey" ==>
+ "/etc/sudoers" `File.containsLine` "joey ALL=(ALL:ALL) NOPASSWD:ALL"
, GitHome.installedFor "joey"
-- I use postfix, or no MTA.
, Apt.removed ["exim4"] `onChange` Apt.autoRemove
@@ -64,12 +64,13 @@ cleanCloudAtCost hostname = propertyList "cloudatcost cleanup"
[ User.nuked "user"
, Hostname.set hostname
, Ssh.uniqueHostKeys
- , "/etc/default/grub" `File.containsLine` "GRUB_DISABLE_LINUX_UUID=true"
+ , "worked around grub/lvm boot bug #743126" ==>
+ "/etc/default/grub" `File.containsLine` "GRUB_DISABLE_LINUX_UUID=true"
`onChange` cmdProperty "update-grub" []
`onChange` cmdProperty "update-initramfs" [Param "-u"]
- `describe` "work around grub/lvm boot bug #743126"
- , combineProperties
- [ File.notPresent "/etc/rc.local"
- , File.notPresent "/etc/init.d/S97-setup.sh"
- ] `describe` "nuked cloudatcost cruft"
+ , "nuked cloudatcost cruft" ==>
+ combineProperties
+ [ File.notPresent "/etc/rc.local"
+ , File.notPresent "/etc/init.d/S97-setup.sh"
+ ]
]