summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Parted/Types.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Property/Parted/Types.hs')
-rw-r--r--src/Propellor/Property/Parted/Types.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Property/Parted/Types.hs b/src/Propellor/Property/Parted/Types.hs
index 5891cc16..11e0947c 100644
--- a/src/Propellor/Property/Parted/Types.hs
+++ b/src/Propellor/Property/Parted/Types.hs
@@ -31,7 +31,7 @@ instance Sem.Semigroup PartTable where
instance Monoid PartTable where
-- | default TableType is MSDOS, with a `safeAlignment`.
mempty = PartTable MSDOS safeAlignment []
- mappend = (<>)
+ mappend = (Sem.<>)
-- | A partition on the disk.
data Partition = Partition
@@ -93,7 +93,7 @@ instance Sem.Semigroup PartSize where
instance Monoid PartSize where
mempty = MegaBytes 0
- mappend = (<>)
+ mappend = (Sem.<>)
reducePartSize :: PartSize -> PartSize -> PartSize
reducePartSize (MegaBytes a) (MegaBytes b) = MegaBytes (a - b)