From: ross Date: Tue, 23 Jul 2002 10:46:27 +0000 (+0000) Subject: [project @ 2002-07-23 10:46:27 by ross] X-Git-Tag: nhc98-1-18-release~935 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8cfaaa32cdd732188a101cd813c389c601ca2e6b;p=ghc-base.git [project @ 2002-07-23 10:46:27 by ross] Make Data.Unique work with Hugs. --- diff --git a/Data/Unique.hs b/Data/Unique.hs index a5a96f6..1c1ceb8 100644 --- a/Data/Unique.hs +++ b/Data/Unique.hs @@ -21,7 +21,7 @@ module Data.Unique ( import Prelude -import Control.Concurrent +import Control.Concurrent.MVar import System.IO.Unsafe (unsafePerformIO) #ifdef __GLASGOW_HASKELL__ @@ -57,5 +57,5 @@ hashUnique (Unique (S# i)) = I# i hashUnique (Unique (J# s d)) | s ==# 0# = 0 | otherwise = I# (indexIntArray# d 0#) #else -hashUnique (Unique u) = u `mod` (fromIntegral (maxBound :: Int) + 1) +hashUnique (Unique u) = fromInteger (u `mod` (toInteger (maxBound :: Int) + 1)) #endif