summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2007-08-30 15:41:31 +0000
committerIan Lynagh <igloo@earth.li>2007-08-30 15:41:31 +0000
commite5954dc9caaa13cc32ee36b9ebd9b2014ee53d8d (patch)
tree7876db9aae49f5fe3ec72be8278beb0ae7779856
parent4af946a0d70ee58b66c1e4e812483b3bf4ea408a (diff)
downloadhaskell-e5954dc9caaa13cc32ee36b9ebd9b2014ee53d8d.tar.gz
Fix haddock docs in Hashtable
-rw-r--r--libraries/base/Data/HashTable.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/libraries/base/Data/HashTable.hs b/libraries/base/Data/HashTable.hs
index 9711dd2b78..cb11e15418 100644
--- a/libraries/base/Data/HashTable.hs
+++ b/libraries/base/Data/HashTable.hs
@@ -199,7 +199,9 @@ hashInt32 x = mulHi x golden + x
-- implemented by extracting the uppermost 32 bits of the 64-bit
-- result of multiplying by a 33-bit constant. The constant is from
-- Knuth, derived from the golden ratio:
+--
-- > golden = round ((sqrt 5 - 1) * 2^32)
+--
-- We get good key uniqueness on small inputs
-- (a problem with previous versions):
-- (length $ group $ sort $ map hashInt [-32767..65536]) == 65536 + 32768