diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2017-08-30 01:29:55 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2017-08-31 09:45:11 +0200 |
| commit | c0feee90118333dac817cfad6f2dedc0a886d1bd (patch) | |
| tree | f1e7bd59e0c8452d9e51f359d504606a8a346bf0 /compiler/utils/UniqFM.hs | |
| parent | 2c133b67df374c73bc8069cefd7d57e1d2a14fc3 (diff) | |
| download | haskell-c0feee90118333dac817cfad6f2dedc0a886d1bd.tar.gz | |
Add missing Semigroup instances to compiler
This is a pre-requisite for implementing the Semigroup/Monoid proposal.
The instances have been introduced in a way to minimise warnings.
Diffstat (limited to 'compiler/utils/UniqFM.hs')
| -rw-r--r-- | compiler/utils/UniqFM.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/utils/UniqFM.hs b/compiler/utils/UniqFM.hs index 8ea8ba4537..076479f984 100644 --- a/compiler/utils/UniqFM.hs +++ b/compiler/utils/UniqFM.hs @@ -85,8 +85,7 @@ import qualified Data.Monoid as Mon import qualified Data.IntSet as S import Data.Typeable import Data.Data -import Data.Semigroup ( Semigroup ) -import qualified Data.Semigroup as Semigroup +import qualified Data.Semigroup as Semi newtype UniqFM ele = UFM (M.IntMap ele) @@ -356,12 +355,12 @@ equalKeysUFM (UFM m1) (UFM m2) = M.keys m1 == M.keys m2 -- Instances -instance Semigroup (UniqFM a) where +instance Semi.Semigroup (UniqFM a) where (<>) = plusUFM instance Monoid (UniqFM a) where mempty = emptyUFM - mappend = plusUFM + mappend = (Semi.<>) -- Output-ery |