From 6d51aa7a2809cdf2b18b350931a1e3b87e442153 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 11 Jul 2011 14:30:39 +0100
Subject: derive Typeable (eliminate deprecation warnings for mkTyCon)

---
 compiler/utils/UniqFM.lhs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'compiler/utils/UniqFM.lhs')

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
-- 
cgit v1.2.1