diff options
| author | Joey Hess <joey@kitenet.net> | 2014-05-29 14:29:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-05-29 14:29:34 -0400 |
| commit | 2b77ee8e106abd5fbcaf8d5cd4719057a8d28a67 (patch) | |
| tree | c1a3620607a70a8912ade76a024ab47fb11bbba2 /src/Propellor/Property/HostingProvider/CloudAtCost.hs | |
| parent | ed6457f7fb381e47426a023ef4e0c474bdab4b6b (diff) | |
| parent | ead04c65e06ed47a175624922582a33082585f6d (diff) | |
Merge branch 'joeyconfig'
Diffstat (limited to 'src/Propellor/Property/HostingProvider/CloudAtCost.hs')
| -rw-r--r-- | src/Propellor/Property/HostingProvider/CloudAtCost.hs | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/Propellor/Property/HostingProvider/CloudAtCost.hs b/src/Propellor/Property/HostingProvider/CloudAtCost.hs new file mode 100644 index 00000000..003bd3c5 --- /dev/null +++ b/src/Propellor/Property/HostingProvider/CloudAtCost.hs @@ -0,0 +1,24 @@ +module Propellor.Property.HostingProvider.CloudAtCost where + +import Propellor +import qualified Propellor.Property.Hostname as Hostname +import qualified Propellor.Property.File as File +import qualified Propellor.Property.Ssh as Ssh +import qualified Propellor.Property.User as User + +-- Clean up a system as installed by cloudatcost.com +decruft :: Property +decruft = propertyList "cloudatcost cleanup" + [ Hostname.sane + , Ssh.randomHostKeys + , "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" ["-u"] + , combineProperties "nuked cloudatcost cruft" + [ File.notPresent "/etc/rc.local" + , File.notPresent "/etc/init.d/S97-setup.sh" + , User.nuked "user" User.YesReallyDeleteHome + ] + ] + |