summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/DiskImage
diff options
context:
space:
mode:
authorJoey Hess2018-04-30 09:06:08 -0400
committerJoey Hess2018-04-30 09:06:08 -0400
commitbb32fad83db093c30ee6132c5d982cc25fe89bda (patch)
treec106cf941167fa16f9489ba2f49410dc38d814af /src/Propellor/Property/DiskImage
parent345536941eeec4a4562222408d9f4326ce9b2645 (diff)
parent14fe4c4d6b5a29be94ecfc0572e0f9a9a081e795 (diff)
Merge branch 'master' into joeyconfig
Diffstat (limited to 'src/Propellor/Property/DiskImage')
-rw-r--r--src/Propellor/Property/DiskImage/PartSpec.hs2
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)