2014-05-23 16:30:25 +00:00
|
|
|
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.User as User
|
|
|
|
|
|
|
|
-- Clean up a system as installed by cloudatcost.com
|
2015-01-25 02:38:10 +00:00
|
|
|
decruft :: Property NoInfo
|
2014-05-23 16:30:25 +00:00
|
|
|
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"
|
2015-01-01 19:15:44 +00:00
|
|
|
, File.notPresent "/zang-debian.sh"
|
2014-05-23 16:30:25 +00:00
|
|
|
, User.nuked "user" User.YesReallyDeleteHome
|
|
|
|
]
|
|
|
|
]
|
|
|
|
|