diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-07-11 14:30:39 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-07-12 11:16:14 +0100 |
| commit | 6d51aa7a2809cdf2b18b350931a1e3b87e442153 (patch) | |
| tree | a5ce2266be80ca3e8bc80470cccc3a4c35647386 /compiler/utils/UniqFM.lhs | |
| parent | 82c997cc0b1c03a49c20ad193676aa00cf1413cd (diff) | |
| download | haskell-6d51aa7a2809cdf2b18b350931a1e3b87e442153.tar.gz | |
derive Typeable (eliminate deprecation warnings for mkTyCon)
Diffstat (limited to 'compiler/utils/UniqFM.lhs')
| -rw-r--r-- | compiler/utils/UniqFM.lhs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/utils/UniqFM.lhs b/compiler/utils/UniqFM.lhs index 9c9fdc9bc4..7cbc3dbcfb 100644 --- a/compiler/utils/UniqFM.lhs +++ b/compiler/utils/UniqFM.lhs @@ -67,6 +67,8 @@ import Compiler.Hoopl hiding (Unique) import Data.Function (on) import qualified Data.IntMap as M import qualified Data.Foldable as Foldable +import Data.Typeable +import Data.Data \end{code} %************************************************************************ @@ -164,6 +166,7 @@ ufmToList :: UniqFM elt -> [(Unique, elt)] \begin{code} newtype UniqFM ele = UFM { unUFM :: M.IntMap ele } + deriving (Typeable,Data) instance Eq ele => Eq (UniqFM ele) where (==) = (==) `on` unUFM |