diff options
Diffstat (limited to 'libraries/base/Data/Unique.hs')
-rw-r--r-- | libraries/base/Data/Unique.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/libraries/base/Data/Unique.hs b/libraries/base/Data/Unique.hs index 55dfa5064e..ab3d64718d 100644 --- a/libraries/base/Data/Unique.hs +++ b/libraries/base/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) |