diff options
| -rw-r--r-- | compiler/utils/UniqFM.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/utils/UniqFM.hs b/compiler/utils/UniqFM.hs index 8f962d4f5e..e24c7173b4 100644 --- a/compiler/utils/UniqFM.hs +++ b/compiler/utils/UniqFM.hs @@ -23,7 +23,9 @@ of arguments of combining function. {-# LANGUAGE CPP #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveTraversable #-} +{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE StandaloneDeriving #-} {-# OPTIONS_GHC -Wall #-} module UniqFM ( @@ -211,9 +213,11 @@ instance Monoid (UniqFM a) where -} newtype UniqFM ele = UFM (M.IntMap ele) - deriving (Data, Eq, Foldable.Foldable, Functor, Traversable.Traversable, + deriving (Data, Eq, Functor, Traversable.Traversable, Typeable) +deriving instance Foldable.Foldable UniqFM + emptyUFM = UFM M.empty isNullUFM (UFM m) = M.null m unitUFM k v = UFM (M.singleton (getKey $ getUnique k) v) |