summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/HostingProvider/CloudAtCost.hs
blob: 6097c6422322bec61f9cd4a5cb4309e51cbb8a39 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
module Propellor.Property.HostingProvider.CloudAtCost where

import Propellor.Base
import qualified Propellor.Property.Hostname as Hostname
import qualified Propellor.Property.File as File
import qualified Propellor.Property.User as User

-- Clean up a system as installed by cloudatcost.com
decruft :: Property NoInfo
decruft = propertyList "cloudatcost cleanup"
	[ Hostname.sane
	, "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"
		, File.notPresent "/zang-debian.sh"
		, User.nuked (User "user") User.YesReallyDeleteHome
		]
	]