Skip to content
Snippets Groups Projects
Commit 9e8b924f authored by Herbert Valerio Riedel's avatar Herbert Valerio Riedel :man_dancing:
Browse files

Use a more sensible `hashInteger` implementation


This makes `hashInteger` behave the same way as `integer-gmp`s
`hashInteger`.

Signed-off-by: Herbert Valerio Riedel's avatarHerbert Valerio Riedel <hvr@gnu.org>
parent 4ecf62f1
No related branches found
No related tags found
No related merge requests found
......@@ -503,10 +503,9 @@ signumInteger (Negative _) = negativeOneInteger
signumInteger Naught = Naught
signumInteger (Positive _) = oneInteger
-- XXX This isn't a great hash function
{-# NOINLINE hashInteger #-}
hashInteger :: Integer -> Int#
hashInteger (!_) = 42#
hashInteger = integerToInt
-------------------------------------------------------------------
-- The hard work is done on positive numbers
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment