Explicitly add 'mappend' for old GHC versions
This commit is contained in:
parent
2c026f1ec7
commit
9f578f41a1
|
@ -1824,6 +1824,7 @@ instance Semigroup SpaceStatus where
|
||||||
(x, SpaceEmpty) -> x
|
(x, SpaceEmpty) -> x
|
||||||
instance Monoid SpaceStatus where
|
instance Monoid SpaceStatus where
|
||||||
mempty = SpaceEmpty
|
mempty = SpaceEmpty
|
||||||
|
mappend = (<>)
|
||||||
|
|
||||||
-- This is slightly awkward because we want to support structured
|
-- This is slightly awkward because we want to support structured
|
||||||
-- optional checks based on nearly the same logic
|
-- optional checks based on nearly the same logic
|
||||||
|
|
Loading…
Reference in New Issue