summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/DiskImage
diff options
context:
space:
mode:
authorJoey Hess2017-12-06 22:34:21 -0400
committerJoey Hess2017-12-06 22:34:21 -0400
commit889cbdbb10859c03c0d9c2a784ab01cfbb224dae (patch)
tree2609e0bca5064ecc70731d7faf2f91b043385d5f /src/Propellor/Property/DiskImage
parent458760b733cabba09420ceeec03733e4ca9ab5b6 (diff)
avoid redundant "has has"
Diffstat (limited to 'src/Propellor/Property/DiskImage')
-rw-r--r--src/Propellor/Property/DiskImage/PartSpec.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Propellor/Property/DiskImage/PartSpec.hs b/src/Propellor/Property/DiskImage/PartSpec.hs
index 6a03c857..942cfa3e 100644
--- a/src/Propellor/Property/DiskImage/PartSpec.hs
+++ b/src/Propellor/Property/DiskImage/PartSpec.hs
@@ -160,8 +160,8 @@ hasPartition p@(mmp, _, _, _) = pureInfoProperty desc
(PartInfo [PartSpecInfo p])
where
desc = case mmp of
- Just mp -> "has " ++ mp ++ " partition"
- Nothing -> "has unmounted partition"
+ Just mp -> mp ++ " partition"
+ Nothing -> "unmounted partition"
-- | Adjusts the PartSpec for the partition mounted at the specified location.
--
@@ -170,7 +170,7 @@ hasPartition p@(mmp, _, _, _) = pureInfoProperty desc
-- > & adjustPartition "/boot" (`addFreeSpace` MegaBytes 150)
adjustPartition :: MountPoint -> (PartSpec PartLocation -> PartSpec PartLocation) -> Property (HasInfo + UnixLike)
adjustPartition mp f = pureInfoProperty
- ("has " ++ mp ++ " adjusted")
+ (mp ++ " adjusted")
(PartInfo [AdjustPartSpecInfo mp f])
-- | Indicates partition layout in a disk. Default is somewhere in the