From b08e5f6ebed4f8ae429876c4f01f31000562ab66 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 2 Sep 2015 11:58:06 -0700 Subject: propellor spin --- src/Propellor/Property/DiskImage.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Propellor/Property/DiskImage.hs b/src/Propellor/Property/DiskImage.hs index 5cef449b..b31aef45 100644 --- a/src/Propellor/Property/DiskImage.hs +++ b/src/Propellor/Property/DiskImage.hs @@ -42,7 +42,7 @@ import System.Posix.Files -- > import Propellor.Property.Parted -- -- > let chroot d = Chroot.debootstrapped (System (Debian Unstable) "amd64") mempty d --- > & Apt.installed ["openssh-server"] +-- > & Apt.installed ["linux-image-amd64"] -- > & ... -- > partitions = DiskImage.fitChrootSize MSDOS -- > [ EXT2 `DiskImage.mountedPartition` "/boot" @@ -81,7 +81,7 @@ built' rebuild img mkchroot mkparttable final = <$> dirSizes chrootdir -- tie the knot! let (mnts, t) = mkparttable (map (getMountSz szm) mnts) - liftIO $ print (mnts, t, map (getMountSz szm) mnts, szm) + liftIO $ print (mnts, t, map (getMountSz szm) mnts) ensureProperty $ exists img (partTableSize t) `before` -- cgit v1.2.3