From: Ross Paterson Date: Sat, 12 Aug 2006 10:38:35 +0000 (+0000) Subject: markup fix to Data.HashTable X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f88611fc62d1cc0e36d1be78c64ad66198c63a4c;p=ghc-base.git markup fix to Data.HashTable --- diff --git a/Data/HashTable.hs b/Data/HashTable.hs index fda647e..f78f0cc 100644 --- a/Data/HashTable.hs +++ b/Data/HashTable.hs @@ -192,6 +192,7 @@ golden = -1640531527 -- implemented by extracting the uppermost 32 bits of the 64-bit -- result of multiplying by a 32-bit constant. The constant is from -- Knuth, derived from the golden ratio: +-- -- > golden = round ((sqrt 5 - 1) * 2^31) :: Int hashInt :: Int -> Int32 hashInt x = mulHi (fromIntegral x) golden