diff options
| author | Joey Hess <joey@kitenet.net> | 2014-07-07 03:08:12 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-07 03:08:12 -0400 |
| commit | dba84b8219d29506886065cc6bcd821d977d2bf8 (patch) | |
| tree | 0fce8880326235bfd9e208536e299fb056ddfd4f /src | |
| parent | a1679dfd92b0ecaf2f4bea8c1bb9b1c74d261f13 (diff) | |
propellor spin
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Grub.hs | 3 | ||||
| -rw-r--r-- | src/Propellor/Property/HostingProvider/Linode.hs | 10 |
2 files changed, 12 insertions, 1 deletions
diff --git a/src/Propellor/Property/Grub.hs b/src/Propellor/Property/Grub.hs index 7ca6275b..b8e1b662 100644 --- a/src/Propellor/Property/Grub.hs +++ b/src/Propellor/Property/Grub.hs @@ -17,7 +17,8 @@ type GrubDevice = String -- "xen/xvda". chainPVGrub :: GrubDevice -> GrubDevice -> Property chainPVGrub rootdev bootdev = combineProperties desc - [ "/boot/grub/menu.lst" `File.hasContent` + [ File.dirExists "/boot/grub" + , "/boot/grub/menu.lst" `File.hasContent` [ "default 1" , "timeout 30" , "" diff --git a/src/Propellor/Property/HostingProvider/Linode.hs b/src/Propellor/Property/HostingProvider/Linode.hs new file mode 100644 index 00000000..cfabe814 --- /dev/null +++ b/src/Propellor/Property/HostingProvider/Linode.hs @@ -0,0 +1,10 @@ +module Propellor.Property.HostingProvider.Linode where + +import Propellor +import qualified Propellor.Property.Grub as Grub + +-- | Linode's pv-grub-x86_64 does not currently support booting recent +-- Debian kernels compressed with xz. This sets up pv-grub chaing to enable +-- it. +chainPVGrub :: Property +chainPVGrub = Grub.chainPVGrub "hd0" "xen/xvda" |