diff options
Diffstat (limited to 'src/Propellor/Property/DiskImage/PartSpec.hs')
| -rw-r--r-- | src/Propellor/Property/DiskImage/PartSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/DiskImage/PartSpec.hs b/src/Propellor/Property/DiskImage/PartSpec.hs index 0698d806..652b53c8 100644 --- a/src/Propellor/Property/DiskImage/PartSpec.hs +++ b/src/Propellor/Property/DiskImage/PartSpec.hs @@ -189,7 +189,7 @@ instance Sem.Semigroup PartLocation where instance Monoid PartLocation where mempty = Middle - mappend = (<>) + mappend = (Sem.<>) partLocation :: PartSpec PartLocation -> PartLocation -> PartSpec PartLocation partLocation (mp, o, p, _) l = (mp, o, p, l) |