[project @ 2004-09-30 10:01:46 by malcolm]

Add a type signature to help nhc98 out.

diff --git a/Data/HashTable.hs b/Data/HashTable.hs
index cc4c32b..b392ce2 100644 (file)
--- a/Data/HashTable.hs
+++ b/Data/HashTable.hs
@@ -343,7 +343,7 @@ update (HashTable ref) key val = do
   segment <- myReadArray dir segment_index
   bucket <- myReadArray segment segment_offset
   let 
-    (deleted,bucket') = foldr filt (0,[]) bucket
+    (deleted,bucket') = foldr filt (0::Int32,[]) bucket
     filt pair@(k,v) (deleted,bucket)
        | key `cmp` k = (deleted+1, bucket)
        | otherwise   = (deleted,   pair:bucket)