From: Ian Lynagh Date: Thu, 30 Aug 2007 15:41:31 +0000 (+0000) Subject: Fix haddock docs in Hashtable X-Git-Tag: 2007-09-13~4 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=78a1058a24f1a18b06c50638d850f35bb3d54ea4;p=ghc-base.git Fix haddock docs in Hashtable --- diff --git a/Data/HashTable.hs b/Data/HashTable.hs index 9711dd2..cb11e15 100644 --- a/Data/HashTable.hs +++ b/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