X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FHashTable.hs;h=66ee2b1249594f738f1cfe7bc2fe77191fcea3bf;hb=f00fe3e6cb628f3bfac049275660f0365daa3733;hp=04297976dd23104a17c890e1af68da02ed5f1204;hpb=13773706eb9d3eed2d3aba8154aa1d4fdac9fb0b;p=ghc-base.git

diff --git a/Data/HashTable.hs b/Data/HashTable.hs
index 0429797..66ee2b1 100644
--- a/Data/HashTable.hs
+++ b/Data/HashTable.hs
@@ -157,7 +157,8 @@ hashString = fromIntegral . foldr f 0
   where f c m = ord c + (m * 128) `rem` fromIntegral prime
 
 -- | A prime larger than the maximum hash table size
-prime = 1500007 :: Int32
+prime :: Int32
+prime = 1500007
 
 -- -----------------------------------------------------------------------------
 -- Parameters