diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-05-04 15:28:15 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-05-04 15:28:15 +0000 |
| commit | df963fcffc316be10d973bc0379f91c4945ffd76 (patch) | |
| tree | 474f3ba90bb84add4ffa5b13732a3a641bf9c9ab /libraries/base/Data/Unique.hs | |
| parent | 1428e6ee4c13b1e0c6c2a8105af2dfdabad763f3 (diff) | |
| download | haskell-df963fcffc316be10d973bc0379f91c4945ffd76.tar.gz | |
add Typeable instance
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) |