Explicitly add 'mappend' for old GHC versions

This commit is contained in:
Vidar Holen 2019-11-16 11:16:15 -08:00
parent 2c026f1ec7
commit 9f578f41a1
1 changed files with 1 additions and 0 deletions

View File

@ -1824,6 +1824,7 @@ instance Semigroup SpaceStatus where
(x, SpaceEmpty) -> x
instance Monoid SpaceStatus where
mempty = SpaceEmpty
mappend = (<>)
-- This is slightly awkward because we want to support structured
-- optional checks based on nearly the same logic