diff options
| author | Don Stewart <dons@galois.com> | 2008-03-08 01:35:56 +0000 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2008-03-08 01:35:56 +0000 |
| commit | 475e70a41c3ebcac766ca76addb44ee4038cb8a5 (patch) | |
| tree | 6cac1f8e5e9a0f1db88ed2ed258094e2111ad71a /libraries/base/Data/Unique.hs | |
| parent | b7703a47420a6395d0e550eb23c19810bcff9ff6 (diff) | |
| download | haskell-475e70a41c3ebcac766ca76addb44ee4038cb8a5.tar.gz | |
untabify
Diffstat (limited to 'libraries/base/Data/Unique.hs')
| -rw-r--r-- | libraries/base/Data/Unique.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libraries/base/Data/Unique.hs b/libraries/base/Data/Unique.hs index 1c1ceb88ee..502739f26d 100644 --- a/libraries/base/Data/Unique.hs +++ b/libraries/base/Data/Unique.hs @@ -14,9 +14,9 @@ module Data.Unique ( -- * Unique objects - Unique, -- instance (Eq, Ord) - newUnique, -- :: IO Unique - hashUnique -- :: Unique -> Int + Unique, -- instance (Eq, Ord) + newUnique, -- :: IO Unique + hashUnique -- :: Unique -> Int ) where import Prelude @@ -26,7 +26,7 @@ import System.IO.Unsafe (unsafePerformIO) #ifdef __GLASGOW_HASKELL__ import GHC.Base -import GHC.Num ( Integer(..) ) +import GHC.Num ( Integer(..) ) #endif -- | An abstract unique object. Objects of type 'Unique' may be @@ -55,7 +55,7 @@ hashUnique :: Unique -> Int #ifdef __GLASGOW_HASKELL__ hashUnique (Unique (S# i)) = I# i hashUnique (Unique (J# s d)) | s ==# 0# = 0 - | otherwise = I# (indexIntArray# d 0#) + | otherwise = I# (indexIntArray# d 0#) #else hashUnique (Unique u) = fromInteger (u `mod` (toInteger (maxBound :: Int) + 1)) #endif |