From dd17d11799a1b867669470bae63267f7efbe541b Mon Sep 17 00:00:00 2001
From: malcolm <unknown>
Date: Thu, 30 Sep 2004 10:01:46 +0000
Subject: [PATCH] [project @ 2004-09-30 10:01:46 by malcolm] Add a type
 signature to help nhc98 out.

---
 Data/HashTable.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Data/HashTable.hs b/Data/HashTable.hs
index cc4c32b..b392ce2 100644
--- 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)
-- 
1.7.10.4