From 6bfcb080bf5b0eb0ed7bf9d908c298d664570bf1 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 11 Jun 2016 20:35:09 +0900 Subject: Exoscale.distroKernel --- src/Propellor/Property/HostingProvider/Exoscale.hs | 23 ++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 src/Propellor/Property/HostingProvider/Exoscale.hs (limited to 'src/Propellor/Property/HostingProvider') diff --git a/src/Propellor/Property/HostingProvider/Exoscale.hs b/src/Propellor/Property/HostingProvider/Exoscale.hs new file mode 100644 index 00000000..afa3e1b7 --- /dev/null +++ b/src/Propellor/Property/HostingProvider/Exoscale.hs @@ -0,0 +1,23 @@ +-- | Maintainer: Sean Whitton + +module Propellor.Property.HostingProvider.Exoscale ( + distroKernel, +) where + +import Propellor.Base +import qualified Propellor.Property.Grub as Grub +import qualified Propellor.Property.Apt as Apt +import qualified Propellor.Property.Reboot as Reboot + +-- | Current Exoshare Debian image doesn't install GRUB, so this property makes +-- sure GRUB is installed and we're running the distro's kernel +-- +-- We reboot after doing this because 'Sbuild.built' will fail to set up an +-- overlay-type chroot on an old kernel +distroKernel :: Architecture -> Property DebianLike +distroKernel arch = Grub.installed' Grub.PC + `before` Apt.installed ["linux-image-" ++ arch] + `before` Grub.boots "/dev/vda" + `before` Grub.mkConfig + `before` Reboot.now + `flagFile` "/etc/propellor-grub" -- cgit v1.2.3