X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FUnique.hs;h=c4c882743301bd1cd43acd74db055010fdafe978;hb=HEAD;hp=55dfa5064e38c037ce6cd42676bb8bbf696d5856;hpb=4efca33ed97059439d1651743e08248b35aba02b;p=ghc-base.git

diff --git a/Data/Unique.hs b/Data/Unique.hs
index 55dfa50..c4c8827 100644
--- a/Data/Unique.hs
+++ b/Data/Unique.hs
@@ -1,3 +1,9 @@
+{-# LANGUAGE CPP #-}
+
+#ifdef __GLASGOW_HASKELL__
+{-# LANGUAGE MagicHash, DeriveDataTypeable #-}
+#endif
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Unique
@@ -27,11 +33,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)