From cc8fbeda82774f6c9a223a87187408496fcd0d2b Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 22 Oct 2015 14:10:52 -0400
Subject: avoid grub install failure in chroot

---
 src/Propellor/Property/DiskImage.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/Propellor/Property/DiskImage.hs')

diff --git a/src/Propellor/Property/DiskImage.hs b/src/Propellor/Property/DiskImage.hs
index 8d503e28..3c2b2200 100644
--- a/src/Propellor/Property/DiskImage.hs
+++ b/src/Propellor/Property/DiskImage.hs
@@ -292,7 +292,12 @@ type Finalization = (Property NoInfo, Property NoInfo)
 -- | Makes grub be the boot loader of the disk image.
 -- TODO not implemented
 grubBooted :: Grub.BIOS -> Finalization
-grubBooted bios = (Grub.installed bios, undefined)
+grubBooted bios = (inchroot, inimg)
+  where
+	-- Need to set up device.map manually before running update-grub.
+	inchroot = Grub.installed' bios
+
+	inimg = undefined
 
 noFinalization :: Finalization
 noFinalization = (doNothing, doNothing)
-- 
cgit v1.3-2-g0d8e