From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 4 May 2010 15:28:15 +0000 (+0000)
Subject: add Typeable instance
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=b66296a577751404276704488eb1017026855b37

add Typeable instance
---

diff --git a/Data/Unique.hs b/Data/Unique.hs
index 55dfa50..ab3d647 100644
--- a/Data/Unique.hs
+++ b/Data/Unique.hs
@@ -27,11 +27,16 @@ import System.IO.Unsafe (unsafePerformIO)
 import GHC.Base
 import GHC.Num
 import GHC.Conc
+import Data.Typeable
 #endif
 
 -- | An abstract unique object.  Objects of type 'Unique' may be
 -- compared for equality and ordering and hashed into 'Int'.
-newtype Unique = Unique Integer deriving (Eq,Ord)
+newtype Unique = Unique Integer deriving (Eq,Ord
+#ifdef __GLASGOW_HASKELL__
+   ,Typeable
+#endif
+   )
 
 uniqSource :: TVar Integer
 uniqSource = unsafePerformIO (newTVarIO 0)