From 1ac3495e9c3ac2a5e9118e143e2a9621746ee918 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 2 Sep 2015 12:21:00 -0700 Subject: rename --- src/Propellor/Property/DiskImage.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/Propellor/Property') diff --git a/src/Propellor/Property/DiskImage.hs b/src/Propellor/Property/DiskImage.hs index 7820c4c3..fe24496f 100644 --- a/src/Propellor/Property/DiskImage.hs +++ b/src/Propellor/Property/DiskImage.hs @@ -6,7 +6,7 @@ module Propellor.Property.DiskImage ( exists, MountPoint, PartSpec, - mountedPartition, + mountedAt, swapPartition, MkPartTable, fitChrootSize, @@ -45,8 +45,8 @@ import System.Posix.Files -- > & Apt.installed ["linux-image-amd64"] -- > & ... -- > partitions = DiskImage.fitChrootSize MSDOS --- > [ EXT2 `DiskImage.mountedPartition` "/boot" --- > , EXT4 `DiskImage.mountedPartition` "/" +-- > [ mkPartition EXT2 `DiskImage.mountedAt` "/boot" +-- > , mkPartition EXT4 `DiskImage.mountedAt` "/" -- > , DiskImage.swapPartition (MegaBytes 256) -- > ] -- > in DiskImage.built "/srv/images/foo.img" chroot partitions (DiskImage.grubBooted DiskImage.PC) @@ -144,8 +144,8 @@ type MountPoint = Maybe FilePath type PartSpec = (MountPoint, PartSize -> Partition) -- | Specifies a mounted partition using a given filesystem. -mountedPartition :: Fs -> FilePath -> PartSpec -mountedPartition fs mntpoint = (Just mntpoint, mkPartition fs) +mountedAt :: (PartSize -> Partition) -> FilePath -> PartSpec +mountedAt mkp mntpoint = (Just mntpoint, mkp) -- | Specifies a swap partition of a given size. swapPartition :: PartSize -> PartSpec -- cgit v1.2.3